my $filename = '/tmp/run_perl_test';
+my $guard = VPIT::TestHelpers::Guard->new(sub { unlink $filename });
+
my $code = "open my \$fh, q[>], q[$filename] or die \$!; for my \$key (sort keys %ENV) { print \$fh qq[\$key:\$ENV{\$key}\n] } close \$fh";
my $ld_path = $Config::Config{ldlibpthname};