in reply to strip header from page fetched w/ LWP

This is how easy it can be: 
use strict;
use warnings;
use HTML::TreeBuilder;
my $t = HTML::TreeBuilder->new();

$t->parse(q~
<html>
<head>
<title>eltit</title>
</head>
<body>
rock me
</body>
</html>
~);

$t->eof;

die $t->find_by_tag_name('body')->as_HTML;
__END__
<body> rock me </body>

[download]

In Section Seekers of Perl Wisdom