Hi,
I'm strugling with fork(). After forking 64 times, it isn't forking anymore.
I wrote the following to illustrate my problem:
-------------------------------

#!C:\perl\bin\perl.exe

$|= 1;
my $counter= 1;
while ($counter) {
    print "\n\nStart: $counter";
    if( fork() eq 0 ) {
        countup($counter); 
        exit;
    }
    print "\nEnd: $counter";
    $counter++;
    sleep 1;
}
exit;

sub countup {
    my $counter= shift;
    print "\nInFork: $counter";
    return;
}
[download]

---------------------------------

When running the script, the output goes like this:

***
***
Start: 63
End: 63
InFork: 63

Start: 64
End: 64
InFork: 64

Start: 65
End: 65

Start: 66
End: 66

***
***

Notice that the "InFork" line (and probably fork) is missing, starting from fork number 65.

Anyone who can help me out of this problem?
Regards
Sten