It seems I get the 401 unauthorized as well. So not sure if this is valid solution? Any help here ?

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

    my $username = "user";

    my $password = "pass";

    my $host="somehost";

    my $port="12001"


    $mech->credentials("$host:$port", "Tomcat Manager Application", "$
+username", "$password");

    $mech->get("$url/manager/list");

    print Dumper $mech->response; # 
    print $mech->content();
[download]