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'); }