Sous Unix, les fichiers n'ont pas toujours une extension qui permet de les reconnaitre et il faut souvent un fichier pour savoir vraiment ce qu'il est.
Heureusement, un module Perl sait très bien faire cela explorer les
premiers octets du fichier pour en déterminer la nature :
File::MimeInfo::Magic . Son emploi est fort simple mais, selon
votre système, peut nécessiter l'installation du programme shared-mime-info disponible sur http://freedesktop.org/Software/shared-mime-info .
use File::MimeInfo::Magic; print mimetype($ARGV[0]);