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