#!/usr/bin/perl -w
######################################################################
# netscape.pl
######################################################################
# Perl Power! - Michael Schilli 1998
######################################################################

use LWP::UserAgent;

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

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

                              # carry out network access
$response = $ua->request($request); 

                              # error check 
if($response->is_success) {
    print $response->headers_as_string();

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