my $pid = fork // die "fork: $!";
unless ($pid) {
    ... child stuff ...
    exit;
}
... parent stuff ...
wait;

##</code><code>##

given (EXPR) {
    when (!defined) {...}
    when (!$_) {...}
    default {...}
}