DB<2> w
    5     }
    6
    7       sub infested {
    8==>b       my $bugs = int rand(3);
    9:          our $Master;
    10:         contaminate($Master);
    11:         warn "needs wash"
    12              if $Master && $Master->isa("Human");
    13
    14:         print "got $bugs\n";

    DB<2>