#!/usr/bin/perl
$|=1;
&abone;
sub abone {
print $$,"(oya)\n";
if( fork() ){}
else{print $$,"(child)\n";}
}
exit;

を実行するとPerlインタプリタが落ちて

#!/usr/bin/perl
$|=1;
print $$,"(oya)\n";
if( fork() ){}
else{print $$,"(child)\n";}
exit;

だと落ちないのは何でですか?

WinXP Pro SP1,ActivePerl 5.8.4