Select Code to Download

use strict;
use Net::FTP;
...
  $FTP->put($File) or die "Can't put $File"
  $FTP->quit;
}