I'm not receiving any type of error message. When I check the SQL table after running the script only the first line appears with a snippet of the second line's information appearing in the last column.

Teacher"2,"01
appears in the last column. The snippet of the second line is: 2,"01 (Teacher" from the first line) in the last column and then no other information is input into the database. Is there any more information that is needed?

#------------------------------  db operations 

sub execute_it {
    my ($dbh, $stmt) = @_;

     print "Content-type: text/html\n\n";
     print "Here1".Dumper ($dbh, $stmt);

    $sth = $dbh->prepare($stmt);
    $sth->execute();
    return ($sth);
}

Content-type: text/html Here1

$VAR1 = bless( {}, 'DBI::db' ); 

$VAR2 = 'LOAD DATA LOCAL INFILE "../file.csv" INTO TABLE table_name FI
+ELDS TERMINATED BY "," OPTIONALLY ENCLOSED BY """" LINES TERMINATED B
+Y "\r" IGNORE 1 LINES ';

sub close_db {
    my ($dbh, $sth) = shift;
    if ($sth) {
        $sth->finish();
        $dbh->disconnect();    
    }
}
[download]