use WWW::Mechanize;

print "one\n";

my $mech = WWW::Mechanize->new( agent => 'Mozilla 5.0'); print "two\n";

my $top = $mech -> get('http://10.0.0.200/'); print "three\n";

print $top->as_string;  print "four\n";

print $mech->content;

#$mech->set_fields( 'password' => 'secret' );

print "five\n";

#my $response = $mech->submit();
$response = $mech->submit_form( form_name => 'LoginForm', fields => { password => "thepass" },
		    button => "Submit" );
print "six\n";

print $response->content;