That's pretty straightforward - you just need to read in the file and split it on the \ngo\n. Then submit each SQL block with a loop:

$sth = $dbh->prepare($sql);
do {
    while(my $row = $sth->fetch) {
        print "@$r\n";
    }
} while($sth->{syb_more_results});
[download]