#!perl -w

use strict;
use LWP::UserAgent;

my $forumurl= 'http://forum.antichat.ru/';
my $user	= 'C!klodoL';
my $pass 	= 'loool';

my $useragent = LWP::UserAgent->new( agent => 'Opera/9.24' );

my $request = $useragent->post( $forumurl.'login.php', [
                                vb_login_username => $user,
                                vb_login_password => $pass,
                                cookieuser        => 1,
                                do                => 'login',
                                forceredirect     => 1 ],
                                Referer           => $forumurl );
								
open (my $file, '>log.html');
print $file $request->as_string;
close $file;
#поправил код в более тру стайлз по совету demonoid ))

"POST $host/login.php?vb_login_username=$login&vb_login_password=$pass&cookieuser=1&s=&do=login&forceredirect=1&vb_login_md5password=".md5($pass)." HTTP/1.1\r\n");