Try File::Type. I've used it only a bit, but it at least claims to fix some of the problems with File::MMagic.