[wize_one]

i ran :

sub EVENT_SAY
{
if ($text=~ /Hail/i)
  {
  quest::say("Who are you and how do you know me?");
  }
if ($text=~ /know/i)
  {
  quest::say("Not just everyone knows me! Only a privileged few.  But you seem trustworthy, perhaps i can use you.");
  }
if ($text=~ /use/i)
  {
  quest::say("I lead the resistance in Norrath.  I'm in need of soldiers.  Are you willing?");
  }
if ($text=~ /willing/i)
  {
  quest::say("Good, see Nyla for equipment.  Then see one of our undercover ops in the house next to us for your assignment.");
  guest::givecash(1000,0,0,0);
  guest::setallskill(255);
  quest::level(8);
  quest::pvp(on);
  }
}

it gave me:
perl -c test.pl
test.pl syntax OK

not sure how well this works on windows perl though