Select Code to Download

$fh = $query->upload('FILE');
     while (<$fh>) 
{
           $filecontents .= $_;
     }

my $file = $query->param('FILE');

...
      $filecontents .= $buffer;
   }
undef $bytesread; undef $buffer;