$k =~ s/([\\\"])/\\$1/g;  # escape quotes and backslashes
		if (utf8::is_utf8($v)){
			utf8::encode($v);
		}
	    push(@parts,
		 qq(Content-Disposition: form-data; name="$k"$CRLF$CRLF$v));<</