You could try File::MMagic, which will give you a MIME type of "image/eps" if the file is such.

Cheers, Ben.