#!/usr/bin/perl -w
use strict;
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 qq(kein Zugriff auf Seite "$url");
}
   }