eval {
 $ftp->login($data->{'login'}, $data->{'pw'}) or die($ftp->message);
 $ftp->binary or die($ftp->message);
 $ftp->cwd($data->{'remote_dir'}) or die($ftp->message);
 $ftp->put($to_upload) or die($ftp->message);
 $ftp->quit;
};

if( $@ ) {
 $log->error("upload_file: xqe $data->{'id'}, " . $@);
 return undef;
} else {
 return 1;
}