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