use strict;
use Data::Dumper;
use WWW::Mechanize;

my $m = WWW::Mechanize->new( autocheck => 1 );
$m->agent_alias( 'Windows Mozilla' );
$m->cookie_jar( HTTP::Cookies->new );

$m->get( 'same_url_as_mech-dump' );
print Dumper ( $m->forms() );
$m->submit_form( form_number => 1, fields => $fields );