use subdir::Somemodule;
import Somemodule qw(%myhash);
print join ("\n", keys %myhash), "\n";
__END__