#!/usr/bin/env perl
use MIME::Lite::HTML;
use HTML::HeadParser;

my $mlh = MIME::Lite::HTML->new;
my $part=$mlh->parse("http://www.perl-community.de");

print $part->body_as_string;

my $hhp = HTML::HeadParser->new;
$hhp->parse($part->body_as_string);

print $hhp->header('Title');