in reply to I don't want to search subfolders

File::Find's main purpose in life is to recurse. If you don't want that, use a simple glob or readdir.

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.