use strict;
use HTML::Tree;
use LWP::Simple;
my $funky = "http://www.google.com";
my $content = get($funky);
my $tree = HTML::Tree->new();
$tree->parse($content);
my ($title) = $tree->look_down( '_tag' , 'title' );
print $title->as_text , "\n";
print $title->as_HTML , "\n";