Help for this page
open my $fh, "<", $fileToInsert or die "$filetoInsert: $!" my $csv = Text::CSV->new ({ ... while (my $row = $csv->getline ($fh)) { $sth->execute (@$row); }