>perl -MScalar::Util=tainted -T -le"use FindBin; print tainted($FindBin::RealBin) ?1:0"
1