use Socket qw( AF_UNIX SOCK_STREAM PF_UNSPEC );

sub _pipe {
    socketpair($_[0], $_[1], AF_UNIX, SOCK_STREAM, PF_UNSPEC)
        or return undef;
    shutdown($_[0], 1);  # No more writing for reader
    shutdown($_[1], 0);  # No more reading for writer
    return 1;
}

##</code><code>##

use IPC::Open3 qw( open3 );

open(local *CHILD_STDIN, '<', 'nul:') or die $!;
_pipe(\local *FROM_CHILD, \local *CHILD_STDOUT);
my $pid = open3('<&CHILD_STDIN', '>&CHILD_STDOUT', '>&STDERR', $cmd);
my $pipe = \*FROM_CHILD;

...

waitpid($pid, 0);