I am not an expert on this but I am guessing you should be able to use the hash() method available in Net::FTP and output hash-marks.

You might find these links useful -

Term::ProgressBar

Tk and FTP with progress bars. - has got some hacks to the hash() method.