Question about Perl Quest Stuff

[xtestx]

I do not understand all this Perl Quest stuff... I see a bunch of code that looks and makes sense but then... wtf do I do with it? like this one

sub EVENT_SAY{ 
  if($mname =~ /^Soulbinder/{ 

    if($text=~/Hail/i){quest::say("Greetings $name. When a hero of our world is slain  their soul returns to the place it was last bound and the body is reincarnated. As a member of the Order of Eternity  it is my duty to [bind your soul] to this location if that is your wish.");} 
    if($text=~/bind my soul/i) { 
      quest::say("Binding your soul.  You will return here when you die."); 
      quest::castspell($userid,2049); 
    } 
  } 

  #your standard default.pl EVENT_SAY behavior 
}

used in an example by smogo on http://www.eqemulator.net/forums/viewtopic.php?t=13265

Where exactly would I put that code to make Dr.Phil01 say that?