my $rv = 2;  # assume fatal.
END { $? = $rv; }

use ...
use ...

{
   ...

   if (...) { $rv = 1; exit(); }

   ...
   
   $rv = 0;
}