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