use LWP::UserAgent;
my $start = 'http://www.amazon.com/product-reviews/B007M6EYU2/ref=cm_cr_pr_top_recent?ie=UTF8&showViewpoints=0&sortBy=bySubmissionDateDescending';
my $ua = LWP::UserAgent->new;
$ua->agent("MyApp/0.1 ");
my $req = HTTP::Request->new(GET => $start);
my $res = $ua->request($req);

if ($res->is_success) {
        my $website = $res->content;
	open OUT,">test.html";
	print OUT "$website\n";
	close OUT;
}