eval {
     ...
   }
   if( my $err = $@ ) {
     die $err;
   }