$ perl -e'
>    my @cmd = ( echo => "foo\nbar" );
>    open(my $fh, "|-", @cmd);
>    print <$fh>;
> '
foo
bar