Select Code to Download

 A "my" declares the listed variables to be local (lexically) to the e
+nclosing block...

#!/usr/bin/env perl                                                   
+                                                                     
+    
use strict;
...
print $foo->{'PACKAGE'};
print qq|\n\n|;
print $bar->{'PACKAGE'};