Perl で外部プログラムを実行して標準出力・標準エラーを取得する

外部プログラムを実行し、標準出力・標準エラーを変数にいれつつ戻り値も取得する。

my @stdout = `dir /b 2>&1`;
if ($? == 0) {
    foreach my $line (@stdout) { print "$line"; }
}