chomp( my @cmds = `child` );
foreach my $cmd (@cmds) {
   next unless /^set\s+(\S.*?)=(.*)/i;
   $ENV{$1} = $2;
}

##</code><code>##

for /f "usebackq delims=" %%f in (`child`) do %%f

##</code><code>##

echo set VAR=5

##</code><code>##

print("set VAR=5\n");