Help for this page

Select Code to Download


  1. or download this
    $ perl -T -MScalar::Util=tainted -wle 'print tainted $0 ? "Taint mode 
+on" : "Taint mode off"' 
Taint mode on
$ perl    -MScalar::Util=tainted -wle 'print tainted $0 ? "Taint mode 
+on" : "Taint mode off"' 
Taint mode off
$
  2. or download this
    $ perl -Twle 'eval {open my $fh, "+>$0"}; print $@ =~ /Insecure/ ? "Ta
+int mode on" : "Taint mode off"'
Taint mode on
$ perl  -wle 'eval {open my $fh, "+>$0"}; print $@ =~ /Insecure/ ? "Ta
+int mode on" : "Taint mode off"'
Taint mode off
$