#!/usr/local/bin/perl -w

use strict;
use warnings;
use WWW::Mechanize;

my $url  = 'http://localhost/cgi-bin/login.cgi';
my $ua   = WWW::Mechanize->new();
my $user = 'foobie';
my $clearpass = '1999';
$ua->get($url);

#$ua->form_number('1');
#$ua->field('j_username',$user);
#$ua->field('j_password',$clearpass);
#$ua->submit();

$ua->set_fields("j_username" => $user, "j_password" => $clearpass);
$ua->submit();
if ($ua->success())
{ print "Yay!"; }
else
{ print "Login failed: " . $ua->response->status_line; }