use warnings;
use strict;
use WWW::Mechanize;
use HTML::TreeBuilder;

my $webcrawler = WWW::Mechanize->new();
my $page = $webcrawler->get ('http://perlmonks.org/?node_id=479598');
my $tree = HTML::TreeBuilder->new_from_content ($page->as_string ());
print $tree->as_text ();