my $shpid = open( my $sh, '|-', '/bin/bash' )
    or die "Can't open a shell process: $!\n";