#!/usr/bin/perl -w
######################################################################
# (c) Michael Schilli 1999
######################################################################

use LWP::UserAgent;

$ua = LWP::UserAgent->new();  # User-Agent erzeugen

                              # Request erzeugen
$request = HTTP::Request->new('GET', 
		          'http://remote.host.com/index.html');

$response = $ua->request($request);     # Netzzugriff ausführen

if($response->is_success()) {           # Fehlerprüfung 
    print $response->content(), "\n";   # Inhalt ausgeben

} else {                                # Fehlermeldung
    print "ERROR Code: ", $response->code(), 
	  " Message: ", $response->message(), "\n";
}