if($child = fork){
return 0;
}elsif(defined $child){...}