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                                   or die $ftp->message;
    };

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