Try something along the lines of this (assumes SQL statements are terminated by semicolon+newline)

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