Lass Dir doch nicht alles aus der Nase ziehen!
Du hast doch den Code von Linuxer - der übrigens tadellos funktioniert - eins zu eins übernommen. Dann poste doch auch wieder den kompletten Code davon und nicht nur dauernd irgendwelche Fragmente.
Benutze Perl-Tags und keine Code-Tags für Perl-Code!