use IPC::Open3;
my $pid= open3( "<&STDIN", *OUT, *OUT, "command" );
my @errors= <OUT>;
close OUT;
my $status= waitpid $pid, 0;