Perl5 module to guess file type like file(1)