Select Code to Download

my $ftp = Net::FTP->new($destserv, Debug => 1) 
   or die "error connecting\n";
...
$ftp->binary();
$ftp->put($output_file) or die "error uploading\n";
$ftp->quit();