while (read(INP,$buf,8192)) {
  print $buf;
}