Select Code to Download

use Net::FTP;
$screen=1; # change to 0 for 'quiet' operation (ie no screen display)
...
return "$movedlog\n\n*****************************\n\n$logfile";
 print "DONE!\n" if $screen;
}