...the neighbourhood zombies, and create new ones too!

my $z1=new Zombies::Zombie;
$z1->zombify($person);
for (my $i=0; $i<10; $i++)
{
 $z1->lurch(50); # move 50 metres
 my $v=new Zombies::Victim; # Create new victim object
 $v->locate(); # Find victim
 $z1->select($v); # Select victim
 $z1->eat('Braaaaaaaiiiins');
}
[download]

...etcetera.