require HTTP::Request;
require LWP::UserAgent;
use HTML::Entities;
use HTML::TreeBuilder;
use Encode;

$ua = LWP::UserAgent->new;

# Get the page
$request = HTTP::Request->new("GET", "http://buyingguide.winemag.com/catalog/peju-1998-reserve-cabernet-sauvignon-napa-rutherford");
$response = $ua->request($request);
$body = $response->content();

#dump the file
open (DMP, ">", "dumpfile.html");
print DMP $body;
close DMP;

#parse it
$root = HTML::TreeBuilder->new;
$root->parse($body);
$root->eof;
$review_et = $root->look_down('itemprop','reviewBody');
print $review_et->as_HTML . "\n";
$review = $review_et->as_text;
print $review . "\n";