package Foo;
$f = 'testsub.pl';
$s = eval "require $f";
delete $INC{$f};
$t = eval "require $f";
print "$_\n" for ($s,$t);
__END__
CODE(0x8167948)
CODE(0x81679a8)