Embperl Tests - File-Upload

[- $buf .= $buffer while read($fdat{upload}, $buffer, 32768); -] Your file has been the content ---------- [+ $buf +] ----------

content: [+ $fdat{content} +]