$SIG{__DIE__}= sub {
        die @_   if  $^S;
        # rest of code here
    };

##</code><code>##

    $SIG{__DIE__}= sub {
        die @_   if  @^S;
        doStuffWith( $_[0] );
    };
    doEverythingElse();
    exit 0;

##</code><code>##

    eval {
        doEverythingElse();
        1;
    } or do {
        doStuffWith( $@ );
    };
    exit 0;