or download this
[jcw@linux mm]$ perl t.pl
Global symbol "$x" requires explicit package name at t.pl line 6.
...
Global symbol "$count" requires explicit package name at t.pl line 11.
Bareword "p" not allowed while "strict subs" in use at t.pl line 14.
Execution of t.pl aborted due to compilation errors.