#! /usr/bin/perl

use strict;
use warnings;
use LWP;
use HTTP::Cookies;
use LWP::Simple;


################################################Lo gin on site#
my $login='xxxx@gmail.com';
my $pass='xxxx';

my $cookie_jar=HTTP::Cookies->new;


my $url='http://www.xxxx.com/?action=login';
my $browser=LWP::UserAgent->new;
$browser->cookie_jar($cookie_jar);

my $response=$browser->post($url,
[ 'screenname'=>$login,
'password'=>$pass,
'submit.x'=>'51',
'submit.y'=>'2',
'continue_url='=>'',
]
);

$cookie_jar->extract_cookies($response);
my $sendurl='http://www.xxxxx.com/?setselected=11058794&setlocation=messages&setarea =new_message&savelast=1';
$browser->cookie_jar($cookie_jar);
$response = $browser->get($sendurl);
$response=$response->as_string;
open(XX,'>1.htm');
print XX $response;

$cookie_jar->extract_cookies($response);

my $surl='http://www.xxxxxx.com/?action=send_message';
$response=$browser->post($surl,
[ 'submission%5Bmsg_id%5D'=>'',
'submission%5Bmessage%5D'=>'how',
'x'=>'13',
'y'=>'6',
]
);

помогите плиз переделать что бы отправляло мессагу всетаки !!!!