for (my $i=0;$i<200;$i++) {
	my $filename = "File-10M-".$i.".txt";

	FORK: {
		if ($pid=fork) {    
			next;
		} elsif (defined $pid) {  
		 # system("wget --output-document D:\\kshare\\payload\\$filename http://10.2.1.23/http-path/payload/10MB/$filename >nul");
		  print "$filename\n"; 
		  exit;
		}
		 elsif ($! eq "EAGAIN"){
			redo FORK;
		} else {
			print "Cant Fork: $!";
			exit 2;
		}
	}

}