if( my $pid = fork )
  {
  # parent
  }
elsif( defined $pid )
  {
  # child
  exit;
  }
else
  {
  die "$! on fork";
  }