use LWP::UserAgent;
   $nextpage = 'http://www.amazon.com/index.htm';
   my $ua = new LWP::UserAgent;
   my $response = $ua->get($nextpage);
   unless ($response->is_success) {
	die $response->status_line;
   }
   my $P = $response->decoded_content();
   if (utf8::is_utf8($content)) {
	binmode STDOUT,':utf8';
   } else {
	binmode STDOUT,':raw';
   }
   print "Content-Type: text/html\n";
   print "\n\n";
   print $P;
   close(STDOUT);
   exit true;