isql -U<login> -i <script_file>

##</code><code>##

while (my $line = <$FH>) {
  my $batch;

  do {
    $batch .= $line;
    last unless $line = <$FH>;
  } until ($line =~ m/^\s*go\s*$/i);
  $dbh->do($batch) if ($line =~ m/^\s*go\s*$/i);
}