my $pid=fork();
if ( $pid == 0 } {
   : child process goes here
} elsif { $pid > 0 ) {
   : parent process
    wait();  # Wait for the child to exit
} else {
    # WOAH! We should never get here! 
    die "fork returned $pid";
}

##</code><code>##

my $pid=fork();
if (not defined $pid) {
    die "fork failed: $!\n";
}
elsif ( $pid == 0 } {
   : child process goes here
}
else {
   : parent process
    wait();  # Wait for the child to exit
}