...
open( SQL, 'somefile') or die $!;
my @statements = split(/;\n/,join('',<SQL>));
for my $stmt( @statements ){
    $dbh->do($_);
}