#!/usr/bin/perl

use strict;

use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
$ua->agent("MyApp/0.1 ");

# Create a request
my $req = HTTP::Request->new(GET => 'http://www.wsu.edu:8080/~brians/errors/errors.html');

# Pass request to the user agent and get a response back
my $res = $ua->request($req);

# Check the outcome of the response
if ($res->is_success) {
 print $res->content;
}
else {
 print $res->status_line, "\n";
}