Select Code to Download

$ perl -I. -Tle "use retaint; retaint::foo(); print 123; print substr 
+$ENV{PATH}, 0, 1; "
retaint.pm:20: tainted? 1
retaint.pm:21: tainted? 0
...

123
Insecure dependency in 'print' at -e line 1.

package taintall;
use strict;
...
sub import { re->import( 'taint' ); }

1;

package retaint;
use strict; use warnings;
...
    f( ut() );
}
1;