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