$SIG{INT} = sub {
  print "recieved SIGINT. Help!!\n";
}