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