#!/usr/bin/perl
# 
# Author: H.L. Hiew (modified from get_url.pl script from Lincoln Stein) 
# Date created: 5/3/2001 
# Date modified: 5/3/2001
#

use strict;
use LWP;

my $url = shift;

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

my $response = $agent->request($request);

print $response->as_string ;