perl -e 'my $ccc = 0; $SIG{INT} = sub { $ccc++; print "^C pressed $ccc times\n"; exit 42 if $ccc >= 5 }; 1 while 1;'; echo $?