Select Code to Download

open PIPE_ONE, 'echo -e "oranges"|' or die "Can't fork";
open PIPE_TWO, 'echo -e "apples"|' or die "Can't fork (again?)";

my $line_pipe_one = readline(*PIPE_ONE);

open PIPE_THREE, '| wc -l';
print PIPE_THREE "Hello World\n";