怎么在命令行上写一个一次性的Perl程序？

[qinglangee]

比如说，统计ls命令结果共有多少行
在命令行上一次写出来，用Perl应该怎么写？

[angelipin]

写个可执行程序。
命令行执行这个程序。

[qinglangee]

谢谢楼上的链接，我并不是想统计ls的行数，只是举个例子
这个链接正是我想要的
试了一下，统计ls行数可以这样
ls | perl -ne "END{ print \"$i\n\"} $i++";