#!/usr/bin/perl -w
use strict;
use IPC::Open3;

open(STDIN, "<", "NUL") || die "open NUL: $!";

local (*IN,*OUT,*ERR);
my $pid = open3(\*IN, \*OUT, \*ERR, "wperl", q(-le), q(my $in = <STDIN>; print $in+3; print STDERR $in+5));

print IN "5\n";
close IN;
my $line = <OUT>;
print "Out=$line";
$line = <ERR>;
print "Err=$line";

##</code><code>##

wperl program > out 2>&1
type out

##</code><code>##

Out=8
Err=10

##</code><code>##

{
    open(my $dummy, "<&STDIN") || open(STDIN, "<", "NUL") || die "open NUL: $!";
}