#!/usr/bin/perl

use strict;
use warnings;
use DBI;

my $file = 'test.sql';
my $dbh = DBI->connect( ... ) or die $DBI::errstr;

open my $fh, '<', $file or die $!;
{
    local $/ = "\n\n";
    while( my $statement = <$fh> ){
        my $sth = $dbh->prepare( $statement ) or die $dbh->errstr;
        $sth->execute or die $dbh->errrstr;
    }
}
close $fh;

CREATE TABLE testtbl (
    ID int not null primary key,
    Testcol VARCHAR(255)
);

INSERT INTO testtbl(ID,Testcol) VALUES(1,'Hallo');

use DBI;

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

my $FH;
unless( open( $FH, '<', $sqlFile ) ) {
    die "Error: can't open file '$sqlFile': $!\n";
}
else {

    local $/ = ';';
    while( my $statement = <$FH> ) {
        chomp( $statement );

        my $sth = $dbh->prepare( $statement )
            or die "Error in prepare: " . $dbh->errstr;
        $sth->execute()
            or die "Error in excute: " . $dbh->errstr;

    } # while $statement

    close( $FH ) or die "Error at closing file '$sqlFile': $!\n";
}