Select Code to Download

  # We define this subroutine anonymously and store it in a lexical
  # scalar to avoid it getting found by itself.
...
  # Here you might want to do() your program file.

  print "$_\n" for $find_globs->('main::');