#!/usr/bin/perl -w
use strict;
use WWW::Mechanize;
use LWP::Simple;
my $browser = WWW::Mechanize->new(); 
$browser->get("http://localhost");
$browser->form_number('1');
$browser->field("username_entered", 'root');
$browser->field("password_entered", 'antonis');
$browser->submit();
my $url_ = $browser->{uri};
my $url = getprint($url_);

##</code><code>##

<input> outside <form> at /usr/lib/perl5/site_perl/5.8.0/WWW/Mechanize.pm line 811
<input> outside <form> at /usr/lib/perl5/site_perl/5.8.0/WWW/Mechanize.pm line 811
.<br>
.<br>
.<br>
<input> outside <form> at /usr/lib/perl5/site_perl/5.8.0/WWW/Mechanize.pm line 811