Select Code to Download

my $file = $q->param("uploaded_file") || error($q,"No file received");
my $type = $q->uploadInfo($file)->{'Content-Type'};
...
  print OUTFILE $buffer;
}
close OUTFILE;

open OUTFILE, ">$upload_dir/$file" or die "Cannot open file";
while (<$file>) {
  print OUTFILE;
}
close OUTFILE;