Select Code to Download

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

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