Someone

my $pid;
for my $i (1..4) {
    $pid = fork;
    die "fork: $!" unless defined $pid;
    last unless $pid;    
}

if($pid) {
#parent
} else {
#children
}