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

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

my $url  = 'inaccessible';
my $ua   = WWW::Mechanize->new();
my $user = 'insecure';

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