Help for this page
my %row; while(<>) { ... or next; $row{$key} = $value; }
use Data::Dumper; print Dumper \%row;
# $db is the DBIx::Simple database connection handle object $db->insert($table, \%row);
www.com | www.net | www.org
No recent polls found