while (sysread(INPUT,$buf,104)) {
  print OUT $buf."\n";
}