Perhaps you're still better off renaming the module, here's why.

Perl loads every module only once, see %INC in perlvar. So, if English is used internally by some other module down the road (which is likely, because it's 2012 and punctuation variables smell), it will not be loaded again. Instead, your module's import method will be called.

But use English; exports a lot of stuff into the calling package, like $ERRNO etc. And suddenly a random module not even used directly by the code you control breaks with a syntax error message!

Here's a little demo (run it as far as possible from your real English.pm!). Note the "not permitted" part is as planned (not a real error). The "echo 1" comand creates a correct empty module.

-bash$ rm English.pm 
-bash$ perl -Mstrict -I. -wle 'use English; $ERRNO=1; print $ERRNO; '
Operation not permitted
-bash$ echo 1 > English.pm
-bash$ perl -Mstrict -I. -wle 'use English; $ERRNO=1; print $ERRNO; '
Global symbol "$ERRNO" requires explicit package name at -e line 1.
Global symbol "$ERRNO" requires explicit package name at -e line 1.
Execution of -e aborted due to compilation errors.
[download]

I want a pony.

As an alternative, I could accept a large dog, but in that case it would have to subsist on hay and oats and will have to live in the pasture I've already leased.

Translated: Is there some really, really good reason why you want to fly in the face of standard practices... especially in a way that's almost guaranteed to bring you grief sometime in the (near?) future?

PS: Clearly, I second AnonyMonk's final suggestion: pick better (for some value like 'Not in common use') module names.

I would recommend renaming your module. The main reason (at least for me) is that the first module that you use requiring the core English module will be very confused.

use lib or File::FindLib or PERLLIB/PERL5LIB/PERL5OPTS

or choose better module names :)

Yes use lib will work and it will load the module from the library which is provided by use lib but better go with include the directory to @INC at the beginning with unshift operator and call that through BEGIN block

For example

use FindBin qw($RealBin);
use File::Spec::Functions qw(catdir);
BEGIN {
    my @dirs = splitdir(canonpath($RealBin));
    my($path) = grep { -e $_ } ( map { $_ = catdir(@dirs[0 .. $#dirs -
+ $_]).'pathtoModule' } (0 .. $#dirs) );
    unshift(@INC, $RealBin, $path);
}
[download]

Please let me know if you have anything unclear and you

Why not use?

 use FindBin qw( $RealBin );
use lib "$RealBin/../pathToModule";
[download]

What do you think you're avoiding with your extra code block?