Select Code to Download

while(my $line = <INFILE> ) {
    $csv->parse($line);
    my ( $state,$city,$location ) = $csv->fields();  # assumming these
+ are col1,col2,col3
    $sth->execute($state,$city,$location) or die "Couldn't execute que
+ry: $dbh->errstr";
}

my $sql =<<SQL;
LOAD DATA LOCAL INFILE '$infile' 
...
SQL

$dbh->do($sql);