Select Code to Download

use Net::FTP;
my $ftp = Net::FTP->new($server, Timeout=>1800, Passive=>1, Debug=>3);
...
$ftp->cwd("files");
$ftp->binary();
$ftp->put("build.zip");