Embperl Tests - File-Upload
[- $buf .= $buffer while read($fdat{upload}, $buffer, 32768); -] Your file has been the content ---------- [+ $buf +] ----------
content: [+ $fdat{content} +]
HTML::Embperl (c) 1997-1998 G.Richter