Select Code to Download

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

$>perl -I. import_test.pl

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

# delete the 'subdir' from the use
#
use Somemodule qw(%myhash);
print join ("\n", keys %myhash), "\n";
__END__

$> perl -I 'subdir' importest.pl

This is perl, v5.6.1 built for MSWin32-x86-multi-thread