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

##</code><code>##

#!/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";