如何确定下载内容的文件扩展名

Question

我正在下载多个可能属于不同类型的文件（例如PDF或TIFF）。我想为每个文件保存具有正确文件扩展名的文件。我可以使用以下方法查看内容类型标题：

$type = $mech->response->headers->header( 'Content-Type' );

然后我可以从那里开始工作并根据找到的内容类型构建我自己的文件扩展名，但是有一个perl模块已经这样做了吗？怎么办呢？