my $pid = undef;
      foreach my $i (1..10)
	{
	$pid = fork(); 
	if (defined($pid))
	...