HTML::HeadParser

Hello,

I am facing a problem with HTML::HeadParser Module.

...
my $ph = HTML::HeadParser->new;
$ph->parse($data);
print("Title: %s\n", $ph->header('Title') );
print("Content-Type: %s\n", $ph->header('Content-Type') );

The title is correct, but the Content-Type is 'text/html;
charset=UTF-8 ' everytime, regardless charset that is contained in the HTML
page ($data). It seemes to me as if my script creates that header for $ph.

When I do a foreach loop on $ph->header, it returns several Content-Type
headers.

bye,

Oliver