><form method="post" action="login.php?sid=c514c45f8ced1eae9f9eced24365bf48">
<table border="0" cellpadding="0" cellspacing="1" width="100%">
<tr> 
<td align="center"><span class="gensmall"> 
<input type="hidden" name="redirect" value="" />
Username:<br />
<input class="post" type="text" name="username" size="15" />
<br />
Password:<br />
<input class="post" type="password" name="password" size="15" />
<br />
</span> <table border="0" cellspacing="0" cellpadding="0">
<tr> 
<td><input class="text" type="checkbox" name="autologin" /></td>
<td class="gensmall">&nbsp;Remember me</td>
</tr>
</table>

##</code><code>##

#!/usr/bin/perl

use warnings;
use strict;

my $username = "test";
my $password = "test";

use CGI::Carp qw(fatalsToBrowser);

use WWW::Mechanize;
use CGI qw/:standard/;

my $browser = WWW::Mechanize->new();

$browser->get("http://www.mwjz.com/phpbb/portal.php");

$browser->form(1);

$browser->field("username", $username);
$browser->field("redirect", "");
$browser->field("autologin", "check");
$browser->field("password", $password);
$browser->click();

print header;
print $browser->content();