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;

##</code><code>##

$|++;
print "My actual PID is " . $$ . "\n";
print "Waiting for you to try and kill me now!\n";
<>;