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