#!/usr/bin/perl 
use strict;
use warnings;

use HTML::TreeBuilder::XPath;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new(agent => "Mozilla/5.0");
my $req = HTTP::Request->new(GET => 'http://docstore.mik.ua/orelly/perl4/cook/ch22_07.htm');
my $res = $ua->request($req);

die("error") unless $res->is_success;

my $xp = HTML::TreeBuilder::XPath->new_from_content($res->content);

my @node =  $xp->findnodes_as_strings("/html/body/table[1]/tr/td[2]/div/a/h3");

die("node doesn't exist") if $#node == -1; # Line 18

print "$_\n" foreach (@node);