Help for this page

Select Code to Download

Select or download this
```
$/= ';'.$/
```

Select or download this

while (my $line = <DATA> ){
   next if ($line =~ s/^#/); # skip comment lines
   print "Query: $line\n";
}