Help for this page

Select Code to Download

Select or download this
```
isql -U<login> -i <script_file>
```

Select or download this

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