## My_Foo.pm
package My_Foo;

BEGIN {
use strict;
use warnings;
use Carp;
use Digest::MD5;
our %inc_copy = %INC;
};

use Net::FTP;
%INC = %inc_copy;
1;

##</code><code>##

## test.pl
use Math::BigInt;
use My_Foo;

for(keys(%INC)) {print "$_: $INC{$_}\n"}