use WWW::Mechanize;
use HTTP::Request;

sub httprequest
{
my $mech = WWW::Mechanize->new(autocheck => 1);

$mech->credentials("servername:8082", "Tomcat Manager", "username", "password");

$mech->get("http://servername:8082/manager/status/all");
print $mech->content();