open IN, "cat foo|" or die "failed to open: $!";
  while (<IN>) { print }
  close IN or die "failed to close: $!";