use strict;
use warnings;
use Cwd;
my $dir = getcwd;
my $file = $dir . "/myModules/" . "SomeModule.pm";
use $file;
print "I am in the main package\n";
SomeModule::func();

##</code><code>##

package SomeModule;
use strict;
use warnings;

   sub func {
        print "I am in func in SomeModule\n";
    }

    1;