use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
        $common_prefix = "http://wiki-na.ms.com/twiki/pub1/GLOSKM/";
        $common_prefix = $common_prefix."$each_items[1]/"."$each_items[4]";
        $url_part = $common_prefix;

print "$url_part\n";

  $response = $ua->get($url_part);
  if ($response->is_success)
  {
        $worksheet1->write($rows, 0, $rows);
        $worksheet1->write($rows, 1, $url_part);
        $worksheet1->write($rows, 2, 'Yes');
  }
  else
  {
        $worksheet1->write($rows, 0, $rows);
        $worksheet1->write($rows, 1, $url_part);
        $worksheet1->write($rows, 2, 'No');

   }
       $rows++;
  }
}