# foo.pl
for (1..2) {
    my %saveinc = %INC;
    eval "use bar";
    if ($@) {
        for my $package(keys %INC) {
            delete $INC{$package} if ! exists $saveinc{$package};
        }
    }
    print "attempt $_: ", ($@ || 'success'), "\n";
}