[PerlChina] Net::FTP如何返回上传下载的速度

大家好！

    今天使用Net::FTP模块来测试FTP，但是没办法打印其下载和上传的速度，请问该怎么做？

比如使用shell脚本，会返回：
3145728 bytes received in 00:50 (60.87 KB/s)
local: put remote: put
229 Entering Extended Passive Mode (|||28677|)
150 Ok to send data.
226 File receive OK.
3145728 bytes sent in 04:02 (12.68 KB/s)