#!/usr/bin/perl -w
use strict;
use warnings;
use LWP::UserAgent;

# .........

   my $url = "http://www.example.com/nichtda.inc";
   my $agent = LWP::UserAgent->new(); 
   my $req = HTTP::Request->new("GET" => $url); # neuer Request
   
   my $res = $agent->request($req);    # Bei diesem Befehl hakt es
     
   my $seite = $res->content();
   if ( $res->is_success() )
     {
      print $seite;
     }
   else
     {
      print "content-type: text/plain\n\n", 
    qq(kein Zugriff auf Seite "$url"), "\n",
    $res->status_line, "\n";
}