use 5.010;
use Web::Magic;

say Web::Magic
	-> new('http://www.perlmonks.org/', node_id => 974112)
	-> querySelector('title')
	-> textContent

##</code><code>##

use 5.010;
use HTML::HTML5::Parser;

my $xml = HTML::HTML5::Parser->load_html(
	location => 'http://www.perlmonks.org/?node_id=974112'
);

my $nodes = $xml->findnodes('//*[local-name()="title"]');

say $nodes->get_node(1)->textContent;