Select Code to Download

open (OUTFILE,">>/usr/local/web/users/feedback");

#!/usr/bin/perl -w
use strict;
...
  my $fh = $query->param('upload_file');
  print WRITE while (<$fh>);
close (WRITE) || die "Couldn't upload $file: $!\n";