use Data::Dumper;
print Dumper \%FORM;

##</code><code>##

use CGI qw/:standard/;
$sth_ins->execute( param('firstname'), param('lastname'), param('state'), param('country') );