#!/usr/local/bin/perl

use strict;
use CGI;
my ($CgiVar) = CGI->new;
require HTTP::Request;
require URI::URL;
require LWP::UserAgent;
sub GetURL;

my $Response = GetURL('https://www-test.pubs.recordsmanagement.ed.ac.uk/public/');

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

print "$Response";

sub GetURL
{
  my ($inURL) = @_;
  my ($ua, $request, $response);   
         
  $ua = new LWP::UserAgent;
  $request = new HTTP::Request 'GET', $inURL;
  $response = $ua->request($request);
         
  if ($response->is_success) {
    return $response->content;
  } else {
    return $response->error_as_HTML;
  }
}