no warnings;

$self={quaking=>"with fear"};
bless $self, Father;

study map monastery => dungeons;
open crypt(doors,listen(carefully,for_sounds));

sub terranean_nightmare {
    seek(survivors, in, dungeons);
    foreach (@encounter) {
        if ($person->isa("Zombie")) {
            reverse undead or
            pack chainsaw and split rand
            or chop $zombie->head_off
            or pop shotgun
            or dump handgrenade;

            die horribly if $undead->can(overpower $self);
        }
    }
    return to_surface,
    push @hellspawn,down,crypt(stairs,with pitch fork) and close door;
}

if (zombie, chomp $self and $self->bleeding ) {
    kill $self
        or warn "The undead are coming!",
            accept the,inevitable
            and join @slavering_hordes;
}