-------------------------------
use strict;
use warnings;
 
 
use File::Copy "copy";
 
 
while (1) {
	my $pid;
	$pid = fork();
 
	if ($pid == 0) {
		copy("a", "b");
		exit 0;
	} else {
		print "Pushing $pid\n";
		print "\tWait : " . waitpid($pid, 0), "\n";
	}
}

##</code><code>##

use strict;
use warnings;
use Win32;
 
use File::Copy "copy";
 
 
while (1) {
	my $pid;
	$pid = fork();
 
	if ($pid == 0) {
		copy("a", "b");
		exit 0;
	} else {
		print "Pushing $pid\n";
		print "\tWait : " . waitpid($pid, 0), "\n";
	}
}