#foo.pl
for (1..2) {
    eval "use bar";
    print "attempt $_: ", ($@ ? 'fail' : 'succeed'), "\n";
}

#bar.pm
0

#stdout
attempt 1: fail
attempt 2: fail


# now change bar.pm to the following:
die

#stdout
attempt 1: fail
attempt 2: succeed