#!/usr/bin/env perl
my $pid;
my @a = (1,2,3);
for my $i (@a) {
	print "i -> $i \n";
	$pid = fork();

	if ( $pid ) {
		# parent
		print " child pid : $pid \n";
	} elsif ( $pid == 0) {
		#child
		#print "child working on $i ";
	}
}
	
while((wait()) > 0) {};

exit