my $buffer;
  while (read($handle, $buffer, 10240)) {
    print IMAGE $buffer;
  }