use File::MimeInfo;
my $mime_type = mimetype('perl-5.38.0.tar.gz');
print("$mime_type\n");