my $forks = 0;
foreach my $i (1..3) {
	if ($i == 1 && fork() == 0) {
		$forks++;
		print "Running first with $$ \n";
		
		call_sub1();
		call_sub2();
		call_sub3();
		call_sub4();
		call_sub5();
		call_sub6();
		exit;
	} elsif ($i == 2 && fork() == 0) {
		$forks++;
		print "Running second $$ \n";

		call_sub1();
		call_sub10();
		call_sub3();
		call_sub13();
		call_sub5();
		
		exit;
	} else {
		if (fork() == 0) {
			$forks++;
			 print "Running third with $$ \n";
			call_sub1();
			call_sub4();
			call_sub5();
			call_sub15();
			exit;
		}
	}

}

for (1 .. $forks) {
	my $pid = wait();
	print "Parent saw $pid exiting\n";
}

print "done\n";