LWP::UserAgent登录淘宝

#!/usr/bin/perl

use strict;

use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
$ua->cookie_jar( {} );
my $res= $ua->post('',
    [
        TPL_username => '13579',
        TPL_password => '13579',
        actionForStable => 'enable_post_user_action',
        action => 'Authenticator',
        event_submit_do_login => 'anything',
   
    ],

);

$res = $ua->get('');


open(FILE, '>a.html');
print FILE $res->content;
close FILE;