Do you want to know the mime type just like file command on unix shows it's file info? File::MimeInfo will return mime type.

use strict;
use warnings;

use File::MimeInfo;
my $mime_type = mimetype('takeda.mp3');
print "#$mime_type#\n";
[download]

#audio/mpeg# is it's answer. I used this module today and it seems handy.