use File::MMagic;
$mm = new File::MMagic; # use internal magic file
# disable checks made against file extension
$mm->removeFileExts;
$type = $mm->checktype_filename("/somewhere/unknown/file");
...