global_player.pl or lua

[atomic]

i may not have been clear.

What i've learned since posting this. I'm using global_player.lua

function event_level_up(e)
local free_skills = {0,1,2,3,4,5,8,9,10,11,12,13,14,15,16,17,18,19,20, 21,22,23,24,25,26,28,29,30,31,32,33,34,36,37,38,39 ,41,42,43,44,45,46,47,49,51,52,54,67,70,71,72,73,7 4,76};

for k,v in ipairs(free_skills) do
if ( e.self:MaxSkill(v) > 0 and e.self:GetRawSkill(v) < 1 and e.self:CanHaveSkill(v) ) then
e.self:SetSkill(v, 1);
end
end

end

is what part needs editing.
below is one of my player.pl that has the code i need BUT its perl and doesn't work in my lua global file.

sub EVENT_LEVEL_UP {
if ($ulevel <= 69) {
quest::scribespells($ulevel);
quest::traindiscs($ulevel);
$client->AddAAPoints(2);
if ($ulevel <= 50) {
$client->Message(15,"A mysterious voice whispers to you, \'You have gained a level and 2 AA points to use when your level 51 or over.\'");
}
else {
$client->Message(15,"A mysterious voice whispers to you, \'You have gained a level and 2 AA points to use.\'");
}
}
}

So my question is do i need to change every player.pl to include this level up code or is their a lua code that does the same?