Select Code to Download

<form action="./index.php?page=identify&amp;forum=mxxx&amp;option=iden
+tify" method="post">
                            <table style="width: 90%; margin-left: aut
+o; margin-right: auto;">
                                <tbody><tr>
...
                            </tbody></table>
                            <div class="center"><a href="./index.php?p
+age=identify&amp;forum=xxx&amp;option=forgotpass">I've forgotten my p
+assword</a></div>
                        </form>

#!/usr/bin/perl -Tw
use diagnostics;
use strict;
...
$mech->get($url);
$mech->set_fields( nick => '$username' , password => '$password' ) ;
$mech->click( "Valider");

LWP::UserAgent::new: ()
LWP::UserAgent::request: ()
HTTP::Cookies::add_cookie_header: Checking forum.xxx for cookies
...
 at /usr/lib/perl5/vendor_perl/5.10.0/HTML/Form.pm line 457
        HTML::Form::value('HTML::Form=HASH(0x8a0c1ac)', 'password', '$
+password') called at /usr/lib/perl5/site_perl/5.10.0/WWW/Mechanize.pm
+ line 1371
        WWW::Mechanize::set_fields('WWW::Mechanize=HASH(0x88f078c)', '
+nick', '$username', 'password', '$password') called at ./MH_Login.pl 
+line 21

http://xxx/index.php?page=identify&forum=xxx&option=identify

POST /index.php?page=identify&forum=xxx&option=identify HTTP/1.1
...
Keep-Alive: timeout=1, max=1000
Connection: Keep-Alive
Content-Type: text/html