$ftp->hash(\*STDOUT,int(filesize to download/80));
# download the new program files
print '#' x (80);
$ftp->get(filename);