CREATING A FILE UPLOAD FIELD
...
print filefield(-name=>'uploaded_file', ...

When the form is processed, you can retrieve the entered filename by c
+alling param():

$filename = param('uploaded_file');
[download]

Then it says:

The filename returned is also a file handle...

               # Copy a binary file to somewhere safe
               open (OUTFILE,">>/usr/local/web/users/feedback");
               while ($bytesread=read($filename,$buffer,1024)) {
                  print OUTFILE $buffer;
               }
[download]