use File::MMagic;

    my $magicFile = '/usr/share/file/magic.mime'; 
    my $mm = new File::MMagic->new($magicFile); 
    my $filePath = $ARGV[0];
    

    my $fh = new FileHandle "< $filePath";
    my $res = $mm->checktype_filehandle($fh);
    print "$res\n";