Embperl Examples - File-Upload
The file you enter in the following text box will be uploaded to the /tmp directory if you hit the "upload file" button
[$ if !defined $fdat{ImageName} $]
[$else$]
[-
open FILE, "> /tmp/file.$$";
print FILE $buffer while read($fdat{ImageName}, $buffer, 32768);
close FILE;
-]
Your file has been saved to [+ "/tmp/file.$$" +]
[$endif$]
HTML::Embperl (c) 1997-1998 G.Richter