#!/usr/bin/perl
use strict;
use warnings;
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
use HTTP::Cookies;

my $ua = LWP::UserAgent->new;
push @{$ua->requests_redirectable}, 'POST';
$ua->cookie_jar(HTTP::Cookies->new(file => "lwpcookies.txt", autosave => 1));

my $req = POST 'http://www.mail.com/scripts/common/proxy.main', [
   action => 'login',
   show_frame => 'Enter',
   mail_language => 'us',
   login => 'your@mail.com',
   password => 'password',
];

my $res = $ua->request($req)->as_string;
print $res;