A Perl module that guesses file types based on their contents - View it on GitHub