# Get the name of the file and an 
  #  open file handle to the file contents
  $filename = $query->param('uploaded_file');

  # Read a text file and print it out
  while ($line = <$filename>) {
    print $line;
  }

##</code><code>##

  # Get the name of the file and an 
  #  open file handle to the file contents
  $filename = $query->param('uploaded_file');

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