実ファイルにアクセスできる場合: File::MMagic or File::MMagic::XS できない場合: File::MimeInfo の globs() File::MimeInfo の場合はこんな感じ。 use strict; use warnings; use File::MimeInfo qw(globs); my $type; $type = globs("a.txt"); warn $type; $type = globs("a.jpg"); warn $type $ perl a.pl text/plain at a.pl line 6. image/jpeg at a.pl line 8.実アプリで使うなら、globs は eval で囲っておくことと、content-type が取れなかったらデフォルトで application/octet-stream あたり