Oh, if only it were so! The Perl version of fork returns undef on failure.

my $pid;

until ( defined ($pid = fork)) {
...