Sorry, mein Fehler. Sollte das nächste Mal zumindest perl -cw auf den Code loslassen...
Aber du solltest auch nicht einfach das Skript 1:1 übernehmen. Hatte ja geschrieben, dass es nicht getestet ist!