use WWW::Mechanize;
use HTML::Form;
use LWP::UserAgent;

my $agent = LWP::UserAgent->new;
my $url = 'http://www.hellboundhackers.org/index.php';
my $response = $agent->get($url);
my $mech = WWW::Mechanize->new ;

my @forms = HTML::Form->parse($response);

my $username = $forms[1]->find_input("user_name","text");
my $password = $forms[1]->find_input("user_pass","password");

$username->value("***");
$password->value("***");

my $filled_out_request = $forms[1]->click;
$response = $agent->request($filled_out_request);

print $response->content;