sub find_exported_symbols {
  my($in, $from) = @_;
  no strict 'refs';
  my($in_tbl, $from_tbl) = ( \%{"$in\::"}, \%{"$from\::"} );

  return grep {
    my $sym = $_;
    grep { \*$sym == \*$_ } keys %$from_tbl;
  } keys %$in_tbl;
}

use Symbol qw/ gensym qualify delete_package /;

print "found $_ in main from Symbol\n"
  for find_exported_symbols( 'main', 'Symbol' );
[download]