#!/usr/bin/perl

use Time::localtime;
use LWP::Simple;

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

$req = HTTP::Request->new(GET => 'http://www.xyz.com/Protected/Track.aspx');

$ua->credentials(
  'www.ats.ca:80',
  'http://www.xyz.com/Login.aspx',
  'user' => 'password'
);

# send request
$res = $ua->request($req);

# check the outcome
if ($res->is_success) {
  print "\n\n\n\n\nSuccessful\n\n\n\n\n";
  print $res->content;
} else {
  #print $res->content;
  print "Error: " . $res->status_line . "\n";
}