my $tid = threads->tid;
	my $fn = "file" . $tid;

	my $winFileHandle = createFile( $fn, "w", "d" ) or die "$!/$^E";
	OsFHandleOpen(*OUTPUT, $winFileHandle, "w") or die "$!/$^E";
	
	my $pid = open(my $pipe, "-|", "perl test.pl");
    
    print OUTPUT $_ while(<$pipe>);

	close(OUTPUT);
	close($pipe);
	CloseHandle($winFileHandle);