perl 动态输出shell脚本

最近在perl执行一个比较长的shell脚本，不停输出它的内容，同时把这些内容保存下来。
刚开始用system，只能不停输出内容。。
在perl cookbook上看到个用管道的方法。明天去试试看。
$pid = open $readme, "-|" , "program" , "arguments";
while (<$readme>) {
         $result .= $_;
          print "$_";
}
close $readme;