BEGIN { use strict; use warnings; use Carp; use Digest::MD5; our %inc_copy = %INC; }; use Net::FTP; %INC = %inc_copy; for(keys(%INC)) {print "$_: $INC{$_}\n"}