while (read($fh, $buffer, 1024)) {
  print $out_handle $buffer;
}

##</code><code>##

read() on unopened filehandle

##</code><code>##

my $handle_in = $cgi->upload('file_image');