Re^2: Client socket blocks if server creates subprocess

I have the same opinion but still can not make it working. Pre-fork with socket close also will not help:

# Workaround for Windows (will not help):
my $h = fork();
if (defined $h and $h == 0) {
    # child
    close($client);
    system($cmd);
    exit(0);
}
[download]

Comment on Re^2: Client socket blocks if server creates subprocess Download Code