Help for this page

Select Code to Download


  1. or download this
    my $tainted = $ENV{PATH};
my $untainted = $1 if $tainted =~ /^(.*)$/;
  2. or download this
    my $tainted = $ENV{PATH};
my($untainted)= ( keys %{ { $ENV{PATH} => undef }} );