Help for this page

Select Code to Download


  1. or download this
        $SIG{__DIE__}= sub {
        die @_   if  $^S;
        # rest of code here
    };
  2. or download this
        $SIG{__DIE__}= sub {
        die @_   if  @^S;
        doStuffWith( $_[0] );
    };
    doEverythingElse();
    exit 0;
  3. or download this
        eval {
        doEverythingElse();
        1;
...
        doStuffWith( $@ );
    };
    exit 0;