my $ua = LWP::UserAgent->new();
my $response = $ua->get("http://www.barackobama.com/2008/08/07/obama_talks_about_reviving_eco.php");
# print $response->decoded_content;                                                                           
my $html = $response->decoded_content();
my $tree = HTML::TreeBuilder->new;
$tree->parse($html);
print $tree->as_HTML;