for (my $i=0; $i < 10; $i++) {
	$pid = fork;
	if ($pid == 0) {

		my $dir_cmd = "dir";
		my @output = `$dir_cmd`;

		exit 1;
	} elsif ( defined ($pid) ) {
			# parent
			$process_count++;
			push(@pids,$pid);
			print "job $pid forked \n";

	} else {
		# fork error

		print "fork failed with code $pid n";
		exit 1;
	}
}