Select Code to Download

#!/usr/bin/perl
# listsubs - display list of subroutines in a package or script
...
  print "Query::$sym\n" if defined *{'Query::'.$sym}{CODE};
  print "$file: subref \$$sym\n" if ref ${*{'Query::'.$sym}{SCALAR}} e
+q 'CODE';
}