Select Code to Download

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

    # Read a text file and print it out
    while (<$filename>) {
...
    while ($bytesread=read($filename,$buffer,1024)) {
       print OUTFILE $buffer;
    }

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

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