#!/usr/bin/perl

$SIG{CHLD} = "IGNORE";
$f1="file1.txt";
$f2="file2.txt";
$f3="file3.txt";
$naptime=5;


sub count{
        print "Starting Fork 1\n";
        open(FILE1, ">$f1");
        while($x < 10){
        $x=$x+1;
        print FILE1 "$x\n";
        sleep($naptime);
        }
        close(FILE1);
        fork && exit;
}

sub count2{
        print "Starting Fork 2\n";
        open(FILE2, ">$f2");
        while($y < 10){
        $y=$y+1;
        print FILE2 "$y\n";
        sleep($naptime);
        }
        close(FILE2);
        fork && exit;
}

count();
count2();

print "Starting Parent Process\n";
open(FILE3, ">$f3");
while($z < 10){
$z=$z+1;
print FILE3 "$z\n";
sleep($naptime);
}
close(FILE3);
print "Parent Script Finished!\n";

########################################################