my $pid=fork() // die "Can't fork: $!";
if ($pid) {
    # parent code
} else {
    # child code
}