$SIG{'INT'} = sub {print "Caught One!\n"};