#!/usr/bin/perl -w

use lib '/u1/m2004/hoover/perl-lib';

print "Content-type:text/html\n\n";

# Parser reads string in from Form.htm
use LWP::UserAgent;
use CGI;
$query=new CGI;
$url_code = $query->param('url');

#print "$url_code\n";

# Create a user agent object
$ua = LWP::UserAgent->new;
$ua->agent("MyApp/0.1 ");

$resp = sendrequest($url_code);
print "$resp\n";

###############

sub sendrequest {

    # create a http 'get' request and store the response
    my $res = $ua->get($_[0]);

    # Check the outcome of the response
    if ($res->is_success) {
        return ($res->content);
    } else {
        die ($res->status_line);
    }
}