如何从Perl脚本中捕获系统命令的stdin和stdout？

perl -MCPAN -e 'install IPC::Open2'

#!/usr/bin/perl

use strict;
use warnings;
use IPC::Open2;

my $cmd = "echo 'Hello, World!'"; # 替换为您想要执行的命令
my $pid = open2(\*CHLD_OUT, \*CHLD_IN, $cmd);

# 将输入数据写入命令的stdin
print CHLD_IN "Input data here\n";
close CHLD_IN;

# 从命令的stdout中读取数据
my $output = "";
while (<CHLD_OUT>) {
    $output .= $_;
}
close CHLD_OUT;

# 等待命令执行完成
waitpid($pid, 0);

# 输出命令的stdout
print "Command output: $output";