#!/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";