#!/usr/bin/perl

  use warnings;
  use diagnostics -verbose;
  

#prints "_protocolHTTP/1.1_content" at the top ot the page   
  
  
  use LWP 5.64;

  $nextpage = 'http://www.amazon.com/index.htm';

   my $browser = LWP::UserAgent->new;
   my $P = $browser->get($nextpage);
   $P->content_type, " document!\n";

    print "Content-Type: text/html\n";
    print "\n\n";
  
    #print $P; - prints HTTP::Response=HASH(0x1388fb0)}
    print %$P;  #--- prints page but has a header "_protocolHTTP/1.1_content" 

    close(STDOUT);
    exit true;

##</code><code>##

# approximation of the original code
   $nextpage = 'http://www.Amazon.com/index.htm';
   use LWP 5.64;
   my $browser = LWP::UserAgent->new;
   $P = $browser->get($nextpage);
   $P->content_type, " document!";
   print "\n\n";
#   print $P;
   print %$P; #attempt to dereference
   close(STDOUT);
   exit true;


##</code><code>##

   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;