pipe CHILDREAD, CHILWRITE;
defined( my $pid = fork ) or die "fork: $!";
if ( $pid ) {
    # read on CHILDREAD;
} else {
    open STDERR, ">&CHILDWRITE";
    open STDOUT, ">&CHILDWRITE";
    exec( $somecmd );
}