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