如何在Windows上使用Perl分支管道？

#!/usr/bin/perl

use strict;
use warnings;
use IPC::Open3;

my $cmd = 'dir';
my $pid = open3(\*CHLD_IN, \*CHLD_OUT, \*CHLD_ERR, $cmd);

print "Child PID: $pid\n";

close CHLD_IN;

while (<CHLD_OUT>) {
    print "STDOUT: $_";
}

while (<CHLD_ERR>) {
    print "STDERR: $_";
}

close CHLD_OUT;
close CHLD_ERR;

waitpid($pid, 0);