use DBI;

my $dbh = DBI->connect('DBI:mysql:database=foobar', 'nobody', 'secret password');
{ local $/ = ';'; while (my $sql = <>) {
  $dbh->do($sql);
} }