if ($pid = fork) { # parent
   ...
}
elsif ($pid == 0) { child
   ...
   exit;
}