my $q = new CGI;
my $file     = $q->param( "file" )     #this is passed correctly
my $fh       = $q->upload( $file );    #this returns ""

#Necessary for non-unix systems
####binmode $fh;####  
binmode OUTPUT;

#write contents to output file
####while ( read( $fh, $buffer, BUFFER_SIZE ) ) {####
####    print OUTPUT $buffer;                    ####
####}                                            ####

close OUTPUT;