$SIG{'INT'} = sub {print "Caught One!\n"};
while(1) {
    sleep 1;
}