Help for this page
#!/usr/bin/perl use strict; ... } $dbh->disconnect(); $csv->disconnect();
sub InsertAndGetID ... $sth->execute(@vals) or die "$dbh->errstr : $table"; }