Select Code to Download

... snippet ...
# here, you untainted the argv[1], but not the hash value!
...
say "data{email} is ", tainted($data{'email'})?'':'not ', "tainted";
... snippet ...
__END__

C:\usr\local\share\PassThru\perl\perlmonks>perl -T pm11135636.pl "" fo
+o@bar.com
Content-type: text/plain
...
data{email} is tainted
CRID:  5
TEST:  5

C:\usr\local\share\PassThru\perl\perlmonks>perl -T pm11135636.pl "" fo
+o@bar.com
Content-type: text/plain
...
data{email} is not tainted
CRID:  5
TEST:  5