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

use LWP::UserAgent;

$ua = LWP::UserAgent->new();  # User-Agent erzeugen
$ua->agent("Mozilla/3.04Gold (X11; I; Linux 2.0.30 i586)");

                              # Request erzeugen
$request = HTTP::Request->new('GET', 
		              'http://www.netscape.com');

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

                              # Fehlerprüfung 
if($response->is_success) {
    print $response->headers_as_string();

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