[MacPerl] Problem to upload a file

[Alex <alex@bbs.extreme-net.org>]

Hello,
I have a problem to send a picture with a form, my file create well, but it
always makes 0Ko.
Veiled my script:

use CGI;
$query = new CGI;
$file = $query->param('FILE');

open (OUTFILE, ">$path_image$file");
while (my $bytesread = read($file, my $buffer, 2096)) {
print OUTFILE $buffer;
 }
  close (OUTFILE);

Veiled the message that I receive:
# Filehandle Fh::image\.gif opened only for input.
File '(eval 38)'; Line 48

Which can help me? 

# ===== Want to unsubscribe from this list?
# ===== Send mail with body "unsubscribe" to macperl-request@macperl.org