if (open (INHOUD, "$regel")) {
  binmode INHOUD;
  print << "EOT1";
Content-Type:  application/msword; filename="bw051122.doc"

EOT1
  while (read(INHOUD, $buffer, 4096) {
    print $buffer;
  };
  close (INHOUD);