Select Code to Download

#!/usr/bin/perl

...
"watcher $pg=25"
);
print "$gen[rand@gen] $b (<i>$bk</i>, pg $pg)", "\n";

lensman 0=25 beholder (<i>Monstrous Manual</i>, pg 0)

lensman beholder (<i>Monstrous Manual</i>, pg 25)

Scalar found where operator expected at C:\***\beholder.pl
line 7, near ""beholder" $b" (Missing operator before  $b?)
...
line 7, near ""beholder" $b" 

Execution of C:\***\beholder.pl aborted due to compilation errors.