use strict;
use WWW::Mechanize;

my $url = "http://www.perlmonks.com";

my $mech = WWW::Mechanize->new(autocheck => 1);#create the object

$mech->get( $url );

print $mech->content,"\n";


$mech->submit_form(
form_number =>2,
fields => {user => 'myname', passwd => 'password'}
);

my $content = $mech->content();

$mech->success ? print "yes" : print "no";