my ($SystemRoot, $PATH) = @ENV{qw<SystemRoot PATH>};
my $ld_name = $Config::Config{ldlibpthname};
my $ldlibpth = $ENV{$ld_name};
my ($SystemRoot, $PATH) = @ENV{qw<SystemRoot PATH>};
my $ld_name = $Config::Config{ldlibpthname};
my $ldlibpth = $ENV{$ld_name};
}
system { $perl } $perl, '-T', map("-I$_", @INC), '-e', $code;
}
system { $perl } $perl, '-T', map("-I$_", @INC), '-e', $code;