带进度条的FTP

Question

我需要使用“Net :: FTP :: Recursive”方法上传文件/文件夹作为rput，我想知道上传文件/文件夹百分比的状态，如进度条。

use strict;
use Net::FTP::Recursive;

my $ftp_con=Net::FTP::Recursive->new('host.name');
$ftp_con->login('username','password');
$ftp_con->rput('c:\my\test','\root\my\test');

$ftp_con->quit;

在上面的代码中，我无法观察文件正在上传的过程，以及哪些文件没有上传以及两者的计数。

请分享您的建议......