$Done = 0;
  sub myhand { print "Caught SIGINT\n"; $Done = 1; }

  ...
  while(1) { 
    sleep(1); 
    $Done && die "Time to go";
  }
  ...