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

use LWP::UserAgent;

$ua = LWP::UserAgent->new();  # create user agent

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

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

if($response->is_success()) {           # check for error
    print $response->content(), "\n";   # output contents

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