Select Code to Download

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

open2(my $from_child, $fifo, "cat") or die $!;
<$from_child>