Select Code to Download

   use strict;
   $a = 'woof';
   my $a = 'meow';
   print "lexical \$a: $a\n";
   print "package \$a: $main::a\n";

   use strict;
   $a = 'woof';
...
   print "\$a: $a\n";
   print "package \$a: $main::a\n";
   print "ref to package \$\$a: $$a\n";