#!/usr/bin/perl -w
use strict;

use URI::Escape;
use LWP::Simple;
use LWP 5.64;
use LWP::UserAgent;
use LWP::RobotUA;
require HTTP::Request;


    my $url_template = "<sharepoint website>";  # SOrry I cann't provide site name becoz itz our compnay interenal site. which I cann't disclose

    my $ua = LWP::UserAgent->new;
    
    $ua->credentials('<sharepoint website>:80', '', '<userid>', '<password>');

    my $request = HTTP::Request->new(GET => "$url_template");

    my $response = $ua->request($request) or print "Failed to send request: $!";

    # error check 

    $content = $response->content(); # document OK

    #$response->is_success() || warn $response->message();

    if ($response->is_success)
    {
	print $response->content;
    } 
    else
    {
	print "Error: " . $response->status_line . "\n";
    }

    
    
or

    my $request = HTTP::Request->new(GET => "$url_template");
    
    $request->content_type('text/html');
    $request->authorization_basic('<userid>', '<password>');
    
    #$request->header( $field => $value )
    #my $response = $ua->get($url_template);
    

    my $response =  $ua->request($request);
    
    if ($response->is_success)
    {
        $content  = $response->decoded_content;  # or whatever
        print $content;
    }
    else
    {
        die $response->status_line;
    }
    

or 

    # create robot
    my $robot = LWP::RobotUA->new('Mozilla/5.0 (Windows XP; U) Opera 6.0 [en]', '<emailid>');

    # temporarily set delay to 0 minutes instaed of 10
    $robot ->delay(0); 

    my $request = HTTP::Request->new('GET', $url_template);

    # carry out network access

    my $response = $robot->request($request);