#!/usr/bin/perl -w
use strict;
use WWW::Mechanize;
use Data::Dumper;

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

my $url = "http://192.168.123.254/begin.htm";

print "Getting $url ...\n";
$mech->get( $url );
print "Got!\n";
my $fields = {
        'URL'   => 'XXXXXXXX'
};

#print Dumper ( $mech );
print "Submitting form ... \n";
my $r = $mech->submit_form( form_name => 'LOGIN', fields => $fields );
if ( $r->is_success ) {
        print "logged on!\n";
} else {
        print "Couldn't submit form:$!\n";
}

##</code><code>##

Couldn't submit form:Connection reset by peer