#!/usr/local/bin/perl   use strict; use warnings;   print "Starting main program\n"; my @childs;   for ( my $count = 1; $count <= 10; $count++) {         my $pid = fork();         if ($pid) {         # parent         #print "pid is $pid, parent $$\n";         push(@childs, $pid);         } elsif ($pid == 0) {                 # child                 sub1($count);                 exit 0;         } else […]