ファイルの種類を判定する (module)File-Type

back
----
use File::Type;

$ft = File::Type->new();
$file_type = $ft->checktype_filename($file);    # ファイル名の場合
$data_type = $ft->checktype_contents($data);    # 変数内のデータの場合
----

これで "application/x-gzip" などが取得できる。
$file はファイル名、$data は実際のデータが格納された変数

UNIX コマンドの file 使ってもいいかな :-p

back