[joligario]

Should be something like this:

sub EVENT_ENTERZONE {
  my $pet_id = $client->GetPetID();
  if ($pet_id) {
    $pet = $entity_list->GetNPCByID($pet_id);
    $pet->Depop();
  }
}