Select Code to Download

#!/usr/bin/perl
use strict;
...
print "1\n";
print $WarnMe::val,"\n";
print "2\n";

package WarnMe;
use strict;
...

1;

zentara@:zentara$ ./WarnMe
Global symbol "$Some" requires explicit package name at WarnMe.pm line
+ 7.
syntax error at WarnMe.pm line 7, near "$Some:"
Compilation failed in require at ./WarnMe line 5.
BEGIN failed--compilation aborted at ./WarnMe line 5.

Name "WarnMe::val" used only once: possible typo at ./WarnMe line 8.
1
Use of uninitialized value in print at ./WarnMe line 8.
2