perl -MFile::MMagic -e '$mm=File::MMagic->new; for(glob("*")){$res=$mm->checktype_filename($_);print "$_:\t$res\n"}'