Select Code to Download

#!/usr/bin/perl

...
use warnings;

my $val = $Some::Nonexistent::Pkg::variable;

$ ./warnme.pl
Name "Some::Nonexistent::Pkg::variable" used only once: possible typo 
+at ./warnme.pl line 6.
$ _

package WarnMe;

...
my $val = $Some::Nonexistent::Pkg::variable;

1;

#!/usr/bin/perl

...
use WarnMe;

# ...

$ ./warnme.pl
$ _