Hi perl monks :) , I am learning LWP, and I would like to try out some simple code. However, it doesn't seem to work. I have installed ActiveState Perl on my comp, and it has LWP version 5.803. (I use %perl -MLWP -le "print (LWP->VERSION)"
I tried to run a simple program with the following code:

#!/usr/bin/perl -w
use strict;
use LWP;
  
my $browser = LWP::UserAgent->new(  );
my $response = $browser->get("http://www.oreilly.com/");
print $response->header("Server"), "\n";
[download]

When I ran it, it doesn't output anything. I tried different codes too:

!/usr/bin/perl -w
use strict;
use URI::Escape;
foreach my $word (@ARGV) {
  next unless length $word; 
  my $url = 'http://www.altavista.com/sites/search/web?q=%22'
    . uri_escape($word) . '%22&kl=XX';
  my ($content, $status, $is_success) = do_GET($url);
  if (!$is_success) {
    print "Sorry, failed: $status\n";
  } elsif ($content =~ m/>AltaVista found ([0-9,]+) results?/) { # lik
+e "1,9
52"
    print "$word: $1 matches\n";
  } else {
    print "$word: Page not processable, at $url\n";
  }
  sleep 2; }

use LWP; 
my $browser;
sub do_GET {
  $browser = LWP::UserAgent->new unless $browser;
  my $resp = $browser->get(@_);
  return ($resp->content, $resp->status_line, $resp->is_success, $resp
+)
    if wantarray;
  return unless $resp->is_success;
  return $resp->content;
}
[download]

it will output: "Sorry, failed 500: Server closed connection without sending any data back
Same output for entering this on command prompt: perl -MLWP::Simple -e "getprint 'http://cpan.org/RECENT'"
Please kindly advise on how to solve this problem