Help for this page

Select Code to Download

Select or download this

$ perl -MScalar::Util=tainted -lT -e '($o)=$ENV{PWD}=~/(.*)/gio;print 
+tainted( $_ ) for ( $o, $ENV{PWD} )'
0
1