Untitled

Perl STDOUT redirection not working in child
open (OUTPUT, '>', $v);
select OUTPUT;
$| = 1;

open (SUB, "| sh print_user_input.sh");
print SUB "Hello Worldn";
close(SUB);

close(OUTPUT);
select STDOUT;

print "Output: $vn";

use IPC::Run3 qw( run3 );
run3 [ 'sh', 'print_user_input.sh' ],
   "Hello Worldn",
   my $v;

#!/usr/bin/env perl

use strict;
use warnings;

use IPC::Open2;

my $pid = open2( *CHLD_OUT, *CHLD_IN, 'sh print_user_input.sh' );
print CHLD_OUT "Hello Worldn";
close CHLD_OUT;

my $output = do { local $/; <CHLD_OUT> };
print "Output: $output";