Select Code to Download

 $sth = $dbh->prepare("INSERT INTO users(
                       id, 
...
               param('s_address'), param('s_city'), 
               param('s_state'), param('s_zip'), 
               param('s_country'));

my @columns = qw(username password first last email phone 
                 address city state zip country 
...
my @formvalues = map { param( $_ ) } @columns;

$sth->execute(@formvalues);

perl -MHTTP::Daemon -MHTTP::Response -MLWP::Simple -e ' ;    # The  
$d = new HTTP::Daemon and fork and getprint $d->url and exit;#spider
($c = $d->accept())->get_request(); $c->send_response( new   #in the
HTTP::Response(200,$_,$_,qq(Just another Perl hacker\n))); ' #  web