I think I have another weird way to do this:

#!/usr/bin/perl -w
use AUTOLOADER;
sub AUTOLOAD {
 $v = $AUTOLOAD;
 $v =~ s/.*:://g;
 if($v eq "SomeFunctionFromHires")
 {
        #if this is called, it didn't work
        require qw(c:\temp\hires.pm);
 }
}

&SomeFunctionFromHires();
&foo;
&SomeOtherFunctionFromHires();
&secondfoo;
1;

Here's what is in the phony Hires.pm:

sub foo
{
print "foo!";
}

sub secondfoo
{
print "secondfoo!";
}

1;

Celebrate Intellectual Diversity