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