#!/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;