Select Code to Download

#!/usr/bin/perl

...
  print $a, "\n"; # prints the local variable
  print $main::a, "\n"; # prints the package variable
}