my $pid = open(CHILD, "-|", 'child', @child_args)
if ($pid) {
  while (<CHILD>) { $logger->($_) }
}
close(CHILD);