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