no strict 'refs';
for ( keys %{"main::"} ) {
  print "$_\n" if defined *{"main::$_"}{CODE};
}