<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">use strict;
use warnings;
use Env::Sanctify;

my $sanctified = { PATH =&gt; $ENV{PATH} };

{ 
  my $sanctify = Env::Sanctify-&gt;sanctify( env =&gt; $sanctified, sanctify =&gt; [ '.*' ] );

  system("$^X " . '-MData::Dumper -e \'warn Dumper(\%ENV);\'');
}
</pre></body></html>