#c:/Perl/bin

use warnings;
use strict; 

use WWW::Mechanize;

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

my $agent = LWP::UserAgent->new; 
$agent->cookie_jar(HTTP::Cookies->new);

$m->get("http://localhost/monk.html");

my $r = $m->submit_form(
  fields => {
    id       => "XXXXXXX",
    pwd => "YYYYYYY",
  }
);

print $m->content;