if (my $pid = fork) {
    # im elternprozess, $pid ist die vom child
}
elsif (defined $pid) {
    # fork hat geklappt, bin im child
    # tu was
    exit;
}
else {
    die "Could not fork: $!";
}