#!/usr/bin/perl

$b = beholder;
$bk  = "Monstrous Manual"; #default book
$pg = 0; #defalt page number
@gen = (
"beholder $b='' $pg=21",
"death kiss $pg=21",
"eye of the deep $pg=21",
"gauth $pg=21",
"spectator $pg=21",
"undead $pg=21",
"hive mother $pg=25",
"director $pg=25",
"examiner $pg=25",
"lensman $pg=25",
"overseer $pg=25",
"watcher $pg=25"
);
print "$gen[rand@gen] $b (<i>$bk</i>, pg $pg)", "\n";

##</code><code>##

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

##</code><code>##

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

##</code><code>##

Scalar found where operator expected at C:\***\beholder.pl
line 7, near ""beholder" $b" (Missing operator before  $b?)
line 7, near "'' $pg" (Missing operator before  $pg?)
line 8, near ""death kiss" $pg" (Missing operator before  $pg?)
line 9, near ""eye of the deep" $pg" (Missing operator before  $pg?)
line 10, near ""gauth" $pg" (Missing operator before  $pg?)
line 11, near ""spectator" $pg" (Missing operator before  $pg?)
line 12, near ""undead" $pg" (Missing operator before  $pg?)
line 13, near ""hive mother" $pg" (Missing operator before  $pg?)
line 14, near ""director" $pg" (Missing operator before  $pg?)
line 15, near ""examiner" $pg" (Missing operator before  $pg?)
line 16, near ""lensman" $pg" (Missing operator before  $pg?)
line 17, near ""overseer" $pg" (Missing operator before  $pg?)
line 18, near ""watcher" $pg" (Missing operator before  $pg?)

syntax error at C:\***\beholder.pl
line 7, near ""beholder" $b" 

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