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