perl -MScalar::Util=tainted -T -e 'print "tainted!\n" if tainted($0)'