Problem with auto-skills on new characters

[Baruuk]

Hi guys - I've been trying to correct this for a day or so - but I'm not a Perl programmer, so it may be something simple I'm missing. If I put the below script in a starting zone - say Qeynos or Cabilis - it works perfectly. It increases all player skills to 20 the moment they enter the game for the first time (in that zone). If I put it in the player.pl in c:\eqemu\quests\templates - it doesn't. It gives a brief message in the chat window in game about Swimming being increased to 100 (which actually doesn't happen according to the character's skill window) and doesn't increase anything else. I could simply paste the code from North Qeynos into all starting zones...but that's not the point. I want to learn what I'm doing wrong because I see the potentil in using Player.pl for other reason. Would anyone mind telling me what I'm doing wrong?

Thanks much in advance.

here's the code I have in the player.pl in qeynos2 and other zones:

sub EVENT_ENTERZONE {

if (!defined($qglobals{newchar})){
quest::setallskill(20);
quest::setglobal("newchar", 1, 5, "F");
quest::scribespells(1,1);
}
else{}
}
sub EVENT_LEVEL_UP{
quest::traindiscs($ulevel);
quest::scribespells($ulevel);
$client->Message(5,"Scribing spells and disciplines.");
}

}

Thanks again.