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;
  }
}