peterg22,

You can use Net::FTP's hash method to output a '#' to a particular filehandle for every x number of bytes (1024 default). For example:

$ftp->hash( \*STDERR);
$ftp->put($ZipFile, $TargetZip);
[download]

Should do the trick. Sure it's not pretty but it is a good visual clue that somethings going on. perldoc Net::FTP for more info.

-derby