Select Code to Download

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