2$p01nt
Использовать куки наверно
Что-то вроде такого должно выйти

#! /usr/bin/perl

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


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

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


my $url='http://www.xxx.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.xxx.com/?setselected=10423501&setlocation=messages&setarea =new_message&savelast=1';

my @xx=get $sendurl;
open(XX,'>1.htm');
print XX @xx;