sub retrieve_url()
{
  my $ua = LWP::UserAgent->new;
 
  my $response = $ua->get(shift);
 
  if ($response->is_success)
  {
     return $response->content;  
  }
  else
  {
     die $response->status_line;
  }
}