Select Code to Download

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