$ perl -MScalar::Util=tainted -TE'say tainted($_) for glob "*"'
1
1
1
1

##</code><code>##

$ perl -MScalar::Util=tainted -TE'opendir(my $dh, "."); say tainted($_) for readdir($dh)'
1
1
1
1
1
1