MIME stuff - Am I missing something?

[Barbie]

Using the code below, and calling the routine with a *.jpg file. Why does
the mime_type return "text/plain"? I've also tried using MIME::Head->read
with a filehandle and it returns the same. I would investigate CPAN further
for clues (and the examples that ActivePerl decided not to include), but it
doesn't seem to want to respond to me today :(

Barbie.


sub parseMIME {
 $myfile = shift;

 use MIME::Head;

 ### Parse a new header from a filehandle:
    $head = MIME::Head->from_file($myfile);

    ### The content type (e.g., "text/html"):
    $mime_type = $head->mime_type;

 return split("/",$mime_type);
}