my $dbh=DBI->connect("dbi:mysql:databasename",
    "username", "password", {RaiseError=>1}) 
    or die "DOES NOT CONNECT";

my $rows_affected = $dbh->do(
    "LOAD DATA LOCAL INFILE 'file' INTO TABLE table_name");