{   local($^F)= 0x8000;
        pipe( READERR, WRITEERR ) or die "pipe: $!";
    }
    my $fd= fileno(WRITEERR);
    Expect->new( "command 2>&$fd" );
    close(WRITEERR);