use DBI;

my $dsn = "DBI:mysql:foobar";
my $user = "foobar";
my $pass = "baz";
my $textfile = "testing.txt";

open (TEXT, "$textfile") or die "Couldn't open textfile: $!";
$dbh = DBI->connect($dsn, $user, $pass,{ RaiseError => 1})
   or die "Could not connect to database! $DBI::errstr";
{ 
  local $/ = undef; 
  $dbh->do("INSERT INTO foo (bar) values (?)", undef, <TEXT>);
}
$dbh->disconnect;
close TEXT;
[download]