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