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