while ($line = <STDIN>) 　　{ 　　print $line; 　　} 　　简单地说，<STDIN>是一个专用的文件句柄，在本例中它属于标准输入缓存（称为STDIN），通常是连接到键盘。每次我们将<STDIN>的值赋给变量$line时，即为将STDIN缓存中的首行取出，然后放入$line。当到达缓存最后一行时，就会取出while语句判断条件为假的（EOF）文件结束标识符。程序的其它部分很简单可以这样解释。现在我们已经将输入信息放入$line变量，接着我们就可以用print函数将其打印到屏幕。或者更准确地说，打印到通常连接显示器的标准输入缓存。标准输入和输出缓存都可以重定向，例如可重定向到保存程序结果的某个文件中，如果是在处理文本，那么通常可以认为这与键盘及显示器是等价的。 　　你可能会认为这一程序已经是最短的了，但是通过使用perl的特殊变量，它还可以更短。