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