如何使用Perl获取DOS工具的命令行输出？

#!/usr/bin/perl

use strict;
use warnings;

my $output = `ipconfig`;
print "The output of the command is:\n\n$output\n";

#!/usr/bin/perl

use strict;
use warnings;

my $output = `ipconfig`;
my @lines = split(/\n/, $output);

foreach my $line (@lines) {
    print "$line\n";
}