$SIG{'INT'} = 'CLEANUP';
    sub CLEANUP {
        print "\n\nCaught Interrupt (^C), Aborting\n";
      exit(1);
    }


##</code><code>##

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