open P, $command  # as above
  or die "can't run $command - $!";
while (<P>)