use strict;
use warnings;
$|++;
print "Main PID is " . $$ . "\n";
my $pid = open my $output, '-|', 'set FOO=BAR& notepad.exe' or die $!;
print "The PID returned is $pid\n";
print "=========================\n";
while(<$output>){
	print $_;
}
close $output;