+
+ my $field;
+ foreach $field ( @fields ) {
+ if ( $cgi->param( $field ) ) {
+ $cgi->param( $field ) =~ /^(.*)$/;
+ $cgi->param( $field, $1);
+ }
+ }
+ my $statement = 'INSERT INTO PERSONS ( '.
+ join(', ', @fields ).
+ ' ) VALUES ( '.
+ join( ', ', map { $cgi->param($_) } @fields ).
+ ' )'
+ ;
+ my $sth = $dbh->prepare($statement)
+ or die $dbh->errstr;
+ my $rv = $sth->execute;
+ die $sth->errstr unless $rv;
+
+ print $cgi->header,
+ "person added?"