use Scalar::Util();
printf "T(%d)(%s)\n",Scalar::Util::tainted($_),$_ for @INC;