Perl处理Unix命令输出

# !/usr/bin/perl-w

open (FILE , " ls-l| " );

while ( $line = < FILE > )
{
chop ( $line );
print $line , " \n " ;
}

close (FILE);