if ($pid = fork) {
    # parent
} else {
    die "cannot fork: $!" unless defined $pid;
    # child
}