$SIG{INT} = sub {
  $Interrupted++;
  syswrite(STDERR, "ouch\n", 5);
}