# 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