Select Code to Download

sub Something
{
...
  # catch
  HandleEvalError( $@ ) if $@;
}

BEGIN{ $SIG{__DIE__} = \&FatalErr }

# Real problem if compile fails before getting here.
sub FatalErr { # do stuff, maybe print @_ or something.
}