$filename = $query->param('uploaded_file');

##</code><code>##

	# Read a text file and print it out
	while (<$filename>) {
	   print;
	}	# Copy a binary file to somewhere safe
	open (OUTFILE,">>/usr/local/web/users/feedback");
	while ($bytesread=read($filename,$buffer,1024)) {
	   print OUTFILE $buffer;
	}

##</code><code>##

     $fh = $query->upload('uploaded_file');
     while (<$fh>) {
	   print;
     }

##</code><code>##

       $filename = $query->param('uploaded_file');
       $type = $query->uploadInfo($filename)->{'Content-Type'};
       unless ($type eq 'text/html') {
	  die "HTML FILES ONLY!";
       }