#!/usr/bin/perl -w

use strict;

use LWP::UserAgent;

my $url = shift || die "No url supplied\n";

my $agent = new LWP::UserAgent;
my $request = new HTTP::Request 'GET' => $url;
my $result = $agent->request($request);

if ($result->is_success)
  {
    print $result->as_string;
  }
else
  {
    print "Error: " . $result->status_line . "\n";
  }<p>
<hr>