perl -le 'chdir pop||die;opendir D,".";print 0+grep-f,readdir D' some_
+dir_out_there
[download]

-- Randal L. Schwartz, Perl hacker

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

Penalty on that golf play - misses files beginning with dot!

-- Randal L. Schwartz, Perl hacker