I feel like golfing ;)

#        123456789_123456789_123
perl -le'print~~grep-f,<@ARGV/*>' dir

# Assuming a single dir, of course. And assuming a *nix-like environme
+nt with unbroken libraries.
[download]

I like glob() and chicken.

U28geW91IGNhbiBhbGwgcm90MTMgY
W5kIHBhY2soKS4gQnV0IGRvIHlvdS
ByZWNvZ25pc2UgQmFzZTY0IHdoZW4
geW91IHNlZSBpdD8gIC0tIEp1ZXJk