for ($count=0;$count<5;$count++){
        unless (defined ($pid[$count] = fork)) {
                print "im dying\n";
                die "cannot fork: $!";
        }
        unless ($pid[$count]) {
                print "im a kid with pid $$\n";
                `do my thing`;
                exit;             #child stops ehre
        }
}                                 # Parent continues here

##</code><code>##

print "Content-Type:text/html\n\n";
print $q->pre("Will be tracing to $trace<BR>\n");
print ("your coming from $ENV{REMOTE_ADDR}<BR>\n"); 

##</code><code>##

1
1
2
1
2
3
1
2
3
4