Is it possible to have a progress while uploading to FTP?

vkon has asked for the wisdom of the Perl Monks concerning the following question:

Hi,
using well-known power of Perl, I've created a simple perl script within a couple of minutes that upoloads a file to FTP:

use strict;
use Net::FTP;
my $fn = shift;

my $ftp = Net::FTP->new("ftp.site.com", Debug => 0)
  or die "Cannot connect to ftp.site.com: $@";

$ftp->login("foo",'bar') or die "Cannot login ", $ftp->message;

$ftp->binary;

$ftp->cwd("/for-DK")
  or die "Cannot change working directory ", $ftp->message;

$ftp->put($fn)
  or die "put failed ", $ftp->message;
$ftp->quit;
print STDERR "ok $fn";
[download]

What I am missing now - is a progress.

Does anyone have an advice how can I have an idea on percentage of already uploaded file?

TIA,
vkon

Comment on Is it possible to have a progress while uploading to FTP? Download Code