defined(my $pid = fork) or die "No fork: '$!'";
if ($pid==0) {
  # child
  exec @whatever or die "No exec: '$!'";
}
# parent