use LWP::MediaTypes qw(guess_media_type);
$type = guess_media_type("/tmp/foo.gif");