#!/usr/bin/perl
use strict;
use warnings;
use 5.020;

require MIME::Types;
my $types = MIME::Types->new;
my $ct = $types->mimeTypeOf('test.jpg');
say $ct;