perl -wTe 'use Scalar::Util qw( tainted ); $x = $ARGV[0]; print "tainted!\n" if tainted( $x ); $x = pack "a*", $x; print "No longer tainted!\n" unless tainted ($x); eval( $x ); ' 'print "hello, world\n";'