sub qxx {
    my( $cmd, @args ) = @_;
    my( $rout, $rerr, $wout, $werr, $proch );

    open my $stdout, '>&', \*STDOUT or tcroak( $! );
    pipe $rout, $wout  or tcroak( $! );
    binmode $rout, ':crlf';
    open STDOUT, '>&', $wout or tcroak( $! );

    open my $stderr, '>&', \*STDERR or tcroak( $! );
    pipe $rerr, $werr  or tcroak( $! );
    binmode $rerr, ':crlf';
    open STDERR, '>&', $werr or tcroak( $! );

    Win32::Process::Create(
        $proch, $cmd, join( ' ', $cmd, @args ),
        1, NORMAL_PRIORITY_CLASS, "."
    ) or tcroak( $^E );

    close $_ for $wout, $werr;

    open STDOUT, '>&', $stdout or tcroak( $! );
    open STDERR, '>&', $stderr or tcroak( $! );
    return $proch->GetProcessID(), $rout, $rerr;
}