I'm using forks for the first time and I need to figure out how to save the results of the child process. I've written the following code. When I call the script, sometimes it runs fine, sometimes I lots of error messages. Obviously the child process doesn't finish, because I have to kill left-over processes. I've also tried a lot of other packages, but until now this is the best functioning code I could get. Can someone help?

#!/usr/bin/perl

use forks;
use forks::shared;
use strict;
use warnings;

my $num = "10";
my @results = ();
share(@results);
my @children = ();

for my $i (0..$num-1) {
    my $pid = fork();
    if ($pid) {
     # Parent
    push @children, $pid;
    } elsif ($pid == 0) {
     # Child
     my $result = "abc"; # Later to be replaced with the 
                         # actual thing to be computed
     $results[$i] = $result;
    sleep 3;
     exit(0);
    }
}
foreach (@children) {
    waitpid($_, 0);
}
for (my $r=0 ; $r<@results; $r++) {
    print $r . "\t" . $results[$r] . "\n";
}
[download]