$SIG{INT} = \&zap;

sub zap {
   print "You zapped me!\n";
   # do some stuff
   # you can't die;
   # kill 6 which is ABRT doesn't work (crash)
   # under strict in indigoperl for some reason
   kill 15, $$; # TERM = 15, forgot where you import it from
}

sleep 1 while 1;