Embperl Tests - File-Upload

[- $buf .= $buffer while read($fdat{upload}, $buffer, 32768); -] Your file has been the content ---------- [+ $buf +] ----------
content: [+ $fdat{content} +]
multval: [+ join (';', split ("\t", $fdat{multval})) +]
single: [+ $fdat{single} +]


HTML::Embperl (c) 1997-1998 G.Richter