# Create a user agent object
      use LWP::UserAgent;
      $ua = LWP::UserAgent->new;

      # Create a request
      my $req = HTTP::Request->new(GET => "$VarHere[0]");

      # Pass request to user agent. Get a response back.
      my $res = $ua->request($req);

      # Check outcome of response
      if ($res->is_success)
      {
         $_ = $res->content;
      }
      else
      {
         whatever
      }