$ perl -e '
>  exec "(
> echo bar
> echo bar
> echo baz
>  ) | wc
> ";
> '
      3       3      12