my $pid = fork;
if (!defined $pid) { die('Fehler bei fork: ', $!); }
else
{
  # fork hat funktioniert

  if ($pid > 0)
  {
    # Ich bin der Mutterprozess und hab die PID des Childs
  }
  else
  {
    # Ich bin der Childprozess und bin "$pid == 0"
  }
}