/usr/share/doc/libenv-sanctify-perl/examples/system.pl is in libenv-sanctify-perl 1.12-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 | use strict;
use warnings;
use Env::Sanctify;
my $sanctified = { PATH => $ENV{PATH} };
{
my $sanctify = Env::Sanctify->sanctify( env => $sanctified, sanctify => [ '.*' ] );
system("$^X " . '-MData::Dumper -e \'warn Dumper(\%ENV);\'');
}
|