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

##</code><code>##

HTTP_ACCEPT = */*
HTTP_ACCEPT_LANGUAGE = en
HTTP_CONNECTION = Keep-Alive
HTTP_EXTENSION = Security/Remote-Passphrase
HTTP_UA_CPU = PPC
HTTP_UA_OS = MacOS
HTTP_TE = deflate,gzip;q=0.3