use strict;
  use LWP::UserAgent;

  my $seiteninhalt = '';

  my $ua = LWP::UserAgent->new;
  $ua->agent("MyBrowser/0.1 ");
  # Request ansenden
  my $req = HTTP::Request->new(GET => 'http://seite.von.der.ich.hole');
 
  my $res = $ua->request($req);
 
 if ($res->is_success) {
      $seiteninhalt = $res->content;
  }
  else {
      print $res->status_line, "\n";
  }