I have been given the task of automating the transfer of files from one machine to another using perl. The only files I am to transfer are .eps files, though there may be other types of files in the directory. The problem is that many (almost all) of the files do not have extensions. How can I determine if a file is an eps if it does not have an extension?