if (!defined(my $pid = fork)) {
    print "Oh no\n";
} elsif ($pid == 0) {
    print "in child\n";
} else {
    print "in parent\n";
}