>perl -MScalar::Util=tainted -Tle"opendir $dh, '.'; print(tainted(readdir($dh))?1:0);
1