while (1) {
  print "sleeping\n";
  system 'sleep', 2;
  warn "system: $!" if -1 == $?;
  my $signal_caught = $? & 127;
  die "Child got a SIGINT" if 2 == $signal_caught;
}