## 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;