use 5.010;
use PerlX::MethodCallWithBlock;
use Web::Magic -quotelike => 'web';

my @headings = web <http://docstore.mik.ua/orelly/perl4/cook/ch22_07.htm>
	-> assert_success
	-> querySelectorAll("h3")
	-> map { $_->textContent };

say $headings[0];