Select Code to Download

#!/usr/local/bin/perl -w
#
...
sub hello {
  print "Hello, World!\n"
}

#!/usr/local/bin/perl -w
#
...
while (my ($k,$v) = each %:: ) {
  print $k . ":\t\t" . $v . "\n";
}