use File::LibMagic ':easy';

         print MagicBuffer("Hello World\n"),"\n";
         # returns "ASCII text"

         print MagicFile("/bin/ls"),"\n";
         # returns "ELF 32-bit LSB executable, Intel 80386, version 1 (SYSV)"
         # on my system