use strict;
use warnings;
use WWW::Mechanize;
my $mech = WWW::Mechanize->new;
$mech->credentials("www.xxx.com:8082", "Tomcat Manager App Realm yada", "username", "password");
$mech->get("http://www.xxx.com:8082/manager");