my %pre_existing_INC;
BEGIN { @pre_existing_INC{ keys %INC } = () }
use Your::Module;
BEGIN { delete @INC{ grep { not exists $pre_existing_INC{$_} } keys %INC } }