如何提高Net::FTP的速度

现在写了一个perl的脚本上传下载文件，但是速度要比直接使用ftp 上传下载文件慢1个数量级。
创建的语句如下：
$ftp = Net::FTP->new($Para{FTP_IP}, Debug => 0, Hash =>1, Passive =>1, Timeout =>10, BlockSize =>8192)

请问这个和哪些因素相关呢？谢谢！

我觉得你应该研究一下，然后给大家分享一下