perl5.8.8 Net::FTP问题

今天用perl写了一个ftp下载上传的工具，执行一切正常，但在下载（get）时，对于下载当前没有的文档，会在下载处停留很久，然后报错

Can't?use?an?undefined?value?as?a?symbol?reference?at?/usr/lib/perl5/5.8.8/Net/FTP/dataconn.pm

。不晓得为什么or die没有起作用，然后谷歌下发现以下这篇帖子。http://community.activestate.com/forum-topic/undefined-value-symbol-reference-net-ftp-dataconn-pm-line-55

这个哥们儿是在xp环境下的activeperl出现的错误和我的很类似，版本也是v5.8.8，根据下面的回帖，试了一下把ftp环境设为非被动模式，居然成功了，仅此马克一下，若有大神请回复。下面粘贴脚本的下载子函数，初学，写的含糟糕，同求指点。

sub?download{
????????my?$ftp?=?Net::FTP->new("$_[0]",Timeout?=>?5,Passive?=>?0)?or?die?"Can't?connect?to?the?Ftp?:$@n";
????????$ftp->login("$config{ftp_user}","$config{ftp_pass}")?or?die?"Can't?login?.?",$ftp->message;
????????$ftp->binary?or?die?"Cannot?change?binary?mode?",?$ftp->message;
????????printcolor?bold,"nInput?the?subdir:n";
????????printcolor?blue,"$config{ftp_host}:$config{ftp_root_dir}/";
????????chomp($ftp_sub_dir=<STDIN>);
????????$ftp->cwd("$config{ftp_root_dir}/$ftp_sub_dir")?or?die?"Change?File:",$ftp->message;
????????printcolor?green,"Change?Dir??Success!n";
????????printcolor?bold,"Input?the?filename:";
????????chomp($down_file=<STDIN>);
????????printcolor?blue,"nDownloading...Please?Wait.n";
????????$ftp->get("$down_file","$config{local_dir}/$down_file")?or?die?"Can't?get?the?$down_file?.?","+++?Download?Success!?+++nnMD5:?";
????????$ftp->quit;
????????open?L_FILE,"$config{local_dir}/$down_file";
????????printcolor?yellow,Digest::MD5->new->addfile(L_FILE)->hexdigest,"t$config{local_dir}/$down_filenn"?;
????????close?L_FILE;
}