# 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>##

$filename = $query->param('uploaded_file');
$type = $query->uploadInfo($filename)->{'Content-Type'};