[provocating]

It really does work beautifully. I made a small modification to let the player know a corpse was found.

sub EVENT_SAY {
  my $charid = 0;
  my $corpse = 0;
  my $charid = $client->CharacterID();
  my $x = $npc->GetX();
  my $y = $npc->GetY();
  my $z = $npc->GetZ();
  
  quest::buryplayercorpse($charid);
  my $corpse = quest::getplayerburriedcorpsecount($charid);

  if($text=~/hail/i) {
   $client->Message(4, "The spectral figure stares into your soul with cold eyes, its voice entering your mind. We keep all that has been lost. In times past, nothing be returned once it was mine. Time have changed. The bodies, your [bodies], that were lost to you can now be returned.");
  }
  if($text=~/bodies/i && $corpse == 0) {
    $client->Message(13, "The voice booms angrily in your mind, Be gone from this place. You waste my time!");
  }
  if($text=~/bodies/i && $corpse > 0) {
    quest::summonburriedplayercorpse($charid, $x, $y, $z, 0);
	$client->Message(13, "I have returned your body to this world, please be more careful in Norrath.");
  }
}