Select Code to Download

%ENV = ();
%foo = (
...
sleep 2;
system("ls $foo{clean}"); # ok
system("ls $foo{dirty}"); # error

$| = 1;
%ENV = ();
...
print "1 : " ; system("echo \"$and\" > /dev/null 2>&1");
print "2 : " ; system("echo $and->{clean} > /dev/null 2>&1");
print "3 : " ; system("echo $and->{dirty} > /dev/null 2>&1");

%shell > perl -Du -U -T taintme.pl

...
2 : system 0 30004 30004
3 : system 1 30004 30004
a

$another = +{};
$another->{clean} = '/usr/matt/.kshrc';
...
print "1 : " ; system("echo \"$another\" > /dev/null 2>&1");
print "2 : " ; system("echo $another->{clean} > /dev/null 2>&1");
print "3 : " ; system("echo $another->{dirty} > /dev/null 2>&1");

Another
1 : system 0 30004 30004
2 : system 0 30004 30004
3 : system 1 30004 30004

#!/usr/bin/perl -wT
#
...
};
open(F,"+>{$foo->{clean}}");
close(F);

#!/usr/bin/perl -wT
#
...

open(F,"+>{$foo->{clean}}");
close(F);