use strict;
use File::Type;

my $infile = "flower.jpg";
   my $ft = File::Type->new();
     my $type1 = $ft->checktype_filename($infile);
     my $type2 = $ft->mime_type($infile);

     print "$type1\n";
     print "$type2\n";
     print `file $infile`;

##</code><code>##

image/jpeg
image/jpeg
flower.jpg: JPEG image data, JFIF standard 1.01