Your code doesn't make much sense, you appear to be attempting to open a directory rather than a filehandle:

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

How about something like:

#!/usr/bin/perl -w
use strict;
use CGI qw/:standard/;
my $query = CGI->new();
my $file = "/usr/local/web/users/feedback/foo.bar";
open (WRITE, ">$file") || die "Couldn't open $file: $!\n";
  my $fh = $query->param('upload_file');
  print WRITE while (<$fh>);
close (WRITE) || die "Couldn't upload $file: $!\n";
[download]

HTH ~ barrd

Update: antirice is correct, I posted this before coffee... "/me must wake up before (speaking||writing)"... I also /msg'd (him||her) to acknowledge that fact.