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