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;
               }