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