or download this
$ perl -c 1159843.pl
Possible unintended interpolation of @sample in string at 1159843.pl l
+ine 11.
...
Global symbol "$host" requires explicit package name at 1159843.pl lin
+e 21.
Bareword "tags" not allowed while "strict subs" in use at 1159843.pl l
+ine 10.
1159843.pl had compilation errors.