Select Code to Download

{
        no strict;
...
           print FILE $buffer;
        }
}

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