use HTML::Entities;
use LWP::UserAgent;
use LWP::Debug;
use SOAP::Transport::HTTP;
use SOAP::Lite on_action => sub { "$_[0]$_[1]"; };
import SOAP::Data 'name', 'value';

our $sp_endpoint = 'http://oursharepointsite.aspx';
our $sp_domain = 'http://oursharepointdomain:80';
our $sp_username = "my valid account";
our $sp_password = "my account password";

if ($debug) {
    LWP::Debug::level('+');
    SOAP::Lite->import(+trace => 'all');
}

my @ua_args = (keep_alive => 1);
my @credentials = ($sp_domain, "", $sp_username, $sp_password);
my $schema_ua = LWP::UserAgent->new(@ua_args);
$schema_ua->credentials(@credentials);

$soap = SOAP::Lite->proxy($sp_endpoint, @ua_args, credentials => \@credentials);

my $ie="Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)";

my $ua = LWP::UserAgent->new;
$ua->agent($ie);
my $url = 'http://oursharepointsite.aspx';
my $response = $ua->get ($url);
my $content;

if ($response->is_success) 
{
	print "$response->content\n";

}
else 
{
	die "DIE!!!:". $response->status_line;
}

exit;