if (
    	( $ftp->login($data->{'login'}, $data->{'pw'}) 
    	  or
          $log->logwarn("upload_file: xqe $data->{'id'}, ", $ftp->message)
        ) 
        &&
        ($ftp->binary or $log->logwarn("upload_file: xqe $data->{'id'}, ", $ftp->message)) 
        &&
        ($ftp->cwd($data->{'remote_dir'}) 
        or
        $log->logwarn("upload_file: xqe $data->{'id'}, ",
        $ftp->message)) 
        &&
        ($ftp->put($to_upload) or
        $log->logwarn("upload_file: xqe $data->{'id'}, ",
        $ftp->message)) &&
        ($ftp->quit)
      ) {
        return 1;
    }
    else {
        $log->error("upload_file: xqe $data->{'id'}, " .
                    "upload failed for $to_upload");
        return undef;
    }