use lib '../lib';

##</code><code>##

BEGIN {
    $| = 1;
    open (STDERR, ">&STDOUT");
    print qq~Content-type: text/html\n\n~;
}

##</code><code>##

Use of uninitialized value in sprintf at /usr/lib/perl5/site_perl/5.8.7/HTTP/Request/Common.pm line 18.
Use of uninitialized value in sprintf at /usr/lib/perl5/site_perl/5.8.7/HTTP/Request/Common.pm line 18.
Use of uninitialized value in sprintf at /usr/lib/perl5/site_perl/5.8.7/HTTP/Headers/Util.pm line 6.
Use of uninitialized value in sprintf at /usr/lib/perl5/site_perl/5.8.7/HTTP/Headers/Util.pm line 6.
Can't locate object method "new" via package "HTML::TreeBuilder::XPath" at ../lib/Web/Scraper.pm line 115.

Return Code: 512

##</code><code>##

# need to modify directly the HTML::Element package, because HTML::TreeBuilder won't let me
# change the class of the nodes it generates
package HTML::Element;
use Scalar::Util qw(weaken);
use vars qw(@ISA);

push @ISA, 'HTML::TreeBuilder::XPath::Node';

use XML::XPathEngine;

{ my $xp;
  sub xp
    { $xp ||=XML::XPathEngine->new();
      return $xp;
    }
}