#!/user/bin/perl
use CGI::Carp qw(fatalsToBrowser);
use DBI;

print "Content-type:text/html\n\n";

#open connection to access database
$dbh =
DBI->connect("DBI:mysql:bgoddard_musicexperiences:localhost","","");

#prepare and execute SQL statement

$sqlstatement="LOAD DATA LOCAL INFILE 'reas_orders.txt' INTO TABLE 'reas_orders'
FIELDS TERMINATED BY '/' ESCAPED BY '\\' LINES TERMINATED BY '\r\n'";
$sth = $dbh->prepare($sqlstatement);
$sth->execute or
     die "Could not execute SQL statement ... maybe invalid?";

$dbh->disconnect;