for (split /\n/, `test.bat`) { my ($k, $v) = split /=/, $_, 2; $ENV{$k} = $v; }