авторизация на сервере

#!/usr/bin/perl -w
use IO::Socket::INET;
  $server="www.livejournal.com";
  $port="80";
   $user="user";
   $pass="123456789";
    $dir="login.bml";
 $socket=IO::Socket::INET->new(PeerAddr => $server,
                        PeerPort => $port,
                        Proto => tcp)
    or die print "Unable to connect to $server:$port\n"; ## Создаем соединение с livejournal.com
    $socket->autoflush(1); ## Отрубаем буферизацию (на всякий случай, т.к. по дефолту она вырублена)
    $post="mode=login&chal=c0%3A1226134800%3A516%3A300%3AZ6a6yBSeA8Ok6CT1u3Bl%3Aa4241c9c17aa567c444234fb60715c0e&response=&user=user&password=123456789";
    $len=length($post);
    print $len;
   $len+=1; ## Находим длину запроса (фраза + \r\n)
    print $socket "POST $dir HTTP/1.0\r\n";
    print $socket "Host: www.livejournal.com\r\n";;
    print $socket "Content-Type: application/x-www-form-urlencoded\r\n";
    print $socket "Connection: Close\r\n";
    print $socket "Content-Length: $len\r\n";
    print $socket "\r\n$post\r\n";

    ## Отправим в сокет длинный header

    $socket->recv($answer,1024); ## И прочитаем возврат =
    print $answer;