## RUN ME


$pack = 'main';
sub blah {}
sub snonk {}

sub walk_symtab {
  my $symtab = shift;
  return if $seen{$symtab}++;
  print "Now doing package $symtab.\n";

  while (my ($n, $g) = each %$symtab) {
#    print "  $n\n";
    if (defined &$g) {
      push @subs, \&$g;
      push @subnames, "$symtab$n";
    }
    if ($n =~ /::$/) {
      walk_symtab($symtab eq 'main::' ? $n : "$symtab$n");
    }
  }
}

walk_symtab('main::');
print "------------\n";
print "Found ", scalar(@subnames), " subroutines total\n";
for (sort @subnames) {
  print "  $_\n";
}
