# apt-get install libfile-libmagic-perl 
# (run this first once if you are in Debian)

use File::LibMagic ':easy';

my $infile = $ARGV[0]
          print MagicFile($infile),"\n";
          print `file $infile`;