登陆淘宝遇到新麻烦，请各位前辈指点指点

liuxq6666

perl脚本登陆淘宝不成功，get后得到的a.html中包含：

//全登陆不允许iframe嵌入

if(window.top !== window.self){ window.top.location = window.location;}

如何解决这个问题，请各位前辈指点指点！
-------------------------------------------------------------------------------------
附脚本：
#!C:\Perl\bin\perl
use strict;
use LWP::Simple;
use LWP::UserAgent;
use HTTP::Cookies;

my $ua = LWP::UserAgent->new;
$ua->cookie_jar( {} );
my $res= $ua->post('https://login.taobao.com/member/login.jhtml',
    [
        TPL_username => 'user123',
        TPL_password => 'password123',
        actionForStable => 'enable_post_user_action',
        action => 'Authenticator',
        event_submit_do_login => 'anything',     
     ],
);
$res = $ua->get('http://my.taobao.com/mytaobao/home/my_taobao.jhtml');
open(FILE, '>a.html');
print FILE $res->content;
close FILE;

jzp520520

我对楼主的数据很好奇，06年注册，7年间这是第一贴，在线不足一小时，你是怎么还记得自己还有这个账号和密码？

liuxq6666

只怪时光飞逝，我没有跟上时间的步伐，仿佛一切都在昨天！！