http://www.perlmonks.org?node_id=1018844


in reply to SFTP Foreign upload\download status

you can also let the code do the work.. I use a status bar type approach.. divide the file size by 80 (screen width) and then put up a fixed row of # chars (used for the status update)
$ftp->hash(\*STDOUT,int(filesize to download/80)); # download the new program files print '#' x (80); $ftp->get(filename);