$SIG{INT} = \&zap;   # trap interrupts and run &zap sub

sub zap {
   print "You zapped me!\n";
   # do some stuff
   die;
}

sleep 1 while 1;