#!/usr/bin/perl --

use strict;
use warnings;

use WWW::Mechanize 1.60;    #implies autocheck => 1

my $url = 'http://host:7777/fagcs_302_C600_sfosun05/domain/';

#my $url = 'http://host:7778/fagcs_320_C106_sfoaix04/domain/';
my $username = 'usrname';
my $password = 'pswd';

my $agent = WWW::Mechanize->new( autocheck => 1 );

if ( eval { $agent->get($url); 1 } ) {

    eval {
        $agent->submit_form(
            form_number => 0,
            fields      => {
                'j_username' => $username,
                'j_password' => $password,
            },
        );
        1;
    } or do {
        print "error :($@)\n";
        print "Couldn't submit form:"
          . $agent->status() . ":" . ":"
          . $agent->content() . "\n";
    };

}
[download]