if ($? == -1) {
      print "failed to execute: $!\n";
  }
  elsif ($? & 127) {
      printf "child died with signal %d, %s coredump\n",
          ($? & 127),  ($? & 128) ? 'with' : 'without';
  }
  else {
      printf "child exited with value %d\n", $? >> 8;
  }
$exit_value = $? >> 8;
$signal_num = $? & 127;
$dumped_core = $? & 128;

print "$?\n";
print "$exit_value\n";
print "$signal_num\n";
print "$dumped_core\n";
print "$!\n";