foo.pl:

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

bar.pm:

  die;

> perl foo.pl
attempt 1: fail
attempt 2: succeed