File::MMagic, File::MimeInfo::Magic
以前もインストールして使おうとしてちょびっとハマったのでメモ。
共にmime-info databaseを使います。
http://www.freedesktop.org/wiki/Software/shared-mime-info
でこいつはRed Hat系ならrpmで入れられるしMacPortsにもありますので、インストールする訳ですが、
MacPortsだとXDG_DATA_HOMEを/opt/local/shareに設定してあげないと駄目です。
だから例えば、
$ env XDG_DATA_HOME=/opt/local/share perl -MFile::MimeInfo::Magic=magic,mimetype -e 'magic("/opt/local/share/mime/magic"); print mimetype("Makefile.PL")' application/x-perl
みたいに使う事になります。