请教个perl程序

请教个perl程序
各位大侠，你们好，本人刚学习perl不久，是菜鸟一个，现在本人遇到个程序，运行的时候没有出现报错信息，但是得到的结果却是说上传数据出错，不能成功进行数据提交。哦，我忘记说我的程序目的了。我是想对一个网页上传数据，然后得到数据分析的结果。我现在把我的程序粘贴上来，请各位大侠帮忙修改下。谢谢大家了！
#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
my $browser=LWP::UserAgent->new;
my $url="http://pepito.proteomics.ics.uci.edu/cgi-bin/BEpro.cgi";
opendir DT,"I:/BEpro/dataset/test";
my @files=grep(/\.*.pdb$/,readdir DT);
#print "@files\n";
foreach my $ff(sort @files){
     #open A,$ff;
     $ff=~s/(.*).pdb/$1/;
     open B,">BEpro_$ff";
    #  while(<A>){
#         chomp $_;
my $ab="I:/BEpro/dataset/test/$ff";
print "$ab\n";

my $response=$browser->post($url,['filename'=>"I:\\BEpro\\dataset\\test\\$ff"]);
if($response->is_success){
  print B $response->content,"\n";}else{
     die $response->status_line;
     }
}