open my $pipe, "foobar|" or die "$!\n";
print frobnicate( $_ ) while <$pipe>: