Perl处理Unix命令输出

# !/usr/bin/perl -w

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

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

close (FILE);