open(my $from_child, '-|', "cat < foobar") or die $!;
<$from_child>