use WWW::Mechanize;

my $mech = WWW::Mechanize->new();

$url='http://*********/cgi-bin/avail.cgi?show_log_entries=&servicegroup=US-WEBSITES&timeperiod=last24hours&smon=7&sday=1&syear=2012&shour=0&smin=0&ssec=0&emon=7&eday=13&eyear=2012&ehour=24&emin=0&esec=0&rpttimeperiod=&assumeinitialstates=yes&assumestateretention=yes&assumestatesduringnotru';

$username='*****';
$password='*****';

$mech->credentials($username, $password);
$mech->get($url);

print "\$mech";