sub child {
  my $job = shift;
  exec("perl", "child-script", $job);
  exit; # Just in case
}