Huh. On my win box -w gets:

Unquoted string "hack" may clash with future reserved word at skull.pl line 18.
Useless use of concatenation (.) in void context at skull.pl line 2.
Useless use of a constant in void context at skull.pl line 18.
Useless use of a constant in void context at skull.pl line 18.
Useless use of a constant in void context at skull.pl line 22.
Name "main::chop" used only once: possible typo at skull.pl line 5.
Use of uninitialized value in scalar dereference at skull.pl line 1.
Use of uninitialized value in scalar dereference at skull.pl line 2.
Use of uninitialized value in scalar dereference at skull.pl line 2.
Use of uninitialized value in regexp compilation at skull.pl line 2.
Use of uninitialized value in pattern match (m//) at skull.pl line 2.
Use of uninitialized value in concatenation (.) at skull.pl line 2.
 just another perl hacker

and use strict gets:

Global symbol "$chop" requires explicit package name at skull.pl line 6.
Global symbol "$__" requires explicit package name at skull.pl line 19.
Global symbol "$__" requires explicit package name at skull.pl line 22.
Bareword "hack" not allowed while "strict subs" in use at skull.pl line 19.
Bareword "ch0p" not allowed while "strict subs" in use at skull.pl line 19.
Execution of skull.pl aborted due to compilation errors.

May be just my cut'n'pasting ...

a