Instead of binmode you can set the type within ftp. You might also want to set the Debug flag to watch what's going on

my $ftp = Net::FTP->new($destserv, Debug => 1) 
   or die "error connecting\n";
$ftp->login($destuser,$destpass);
$ftp->cwd('/path/to/proper/directory');
$ftp->binary();
$ftp->put($output_file) or die "error uploading\n";
$ftp->quit();
[download]

-derby