Help for this page

Select Code to Download

Select or download this

    $SIG{'INT'} = 'CLEANUP';
    sub CLEANUP {
...
      exit(1);
    }

Select or download this

    $SIG{$_} = 'CLEANUP' for qw(INT KILL TERM STOP QUIT);