SOS~!急，求救~！谁知道这个网站搞了什么鬼？

ziluobu

我做了一个程序模拟登陆商都论坛 http://bbs.shangdu.com 抓包看都一样了但是还是提示用户名密码错误，谁知道为什么？
  use HTTP::Cookies;
    use HTTP::Request::Common qw(POST);
  use LWP;
  $ua = LWP::UserAgent->new;
  $ua->agent('Opera/9.25 (Windows NT 5.2; U; zh-cn)');
  $ua->default_header('Accept' => "text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1");
  $ua->default_header('Accept-Language' => "zh-CN,zh;q=0.9,en;q=0.8");
  $ua->default_header('Content-Type' => "application/x-www-form-urlencoded");
  $ua->default_header('Referer' => "http://usrbbs.shangdu.com/misc.cgi?action=login&return_url=http%3A%2F%2Fbbs.shangdu.com%2Fviewthread.cgi%3Ffid%3D48%26tid%3D1237991");
  
  
  $ua->cookie_jar(HTTP::Cookies->new(file => "D:\\bin\\posttools\\bbsshangdudingtie\\data\\我是不知道\\cookie.txt",
                                     autosave => 1));
  $res = $ua->get('http://usrbbs.shangdu.com/misc.cgi?action=login&return_url=http://bbs.shangdu.com/forumdisplay.cgi/fid=48');
  $res = $ua->get('http://usrbbs.shangdu.com/verifyimg.php?act=water');
  $htms=$res->content;
  open (PNG,'>D:\bin\posttools\bbsshangdudingtie\bin\1.png');
  binmode(PNG);
  print PNG $htms;
  close PNG;
  print "请编辑验证码 \n";
sleep 30;
    open (FILE,'<D:\bin\posttools\bbsshangdudingtie\bin\number.txt'); #回过帖子的记录起来
    $number= <FILE>;
    close FILE;
    $response = $ua->post( 'http://usrbbs.shangdu.com/misc.cgi?action=login',
              [
              return_url => 'http://bbs.shangdu.com/forumdisplay.cgi?fid=48',
              registerhost => 'bbs.shangdu.com',
              referer => 'http://bbs.shangdu.com/forumdisplay.cgi?fid=48',
              UserName => '我是不知道',
              Userpass => 'panwei',
              number => $number,
              loginsubmit => "会员登录",
              loginsubmit22.x =>"27",
              loginsubmit22.y =>"5"               
              ]);
    $html=$response->content;
    open (FILE,'>D:\bin\posttools\bbsshangdudingtie\bin\cookiehtm.htm'); #回过帖子的记录起来
    print FILE $html;
    close FILE;
    $ua->cookie_jar->save;


谁帮忙跟踪数据包看看到底怎么回事？