perl教程-文件句柄的引用

将同一信息输出到不同的文件，例如，某程序可能在一个实例中输出到屏幕，另一个输出到打印机，再一个输出到记录文件，甚至同时输出到这三个文件。相比较于每种处理写一个单独的语句，可以有更好的实现方式如下：
spitOut(*STDIN);
spitOut(*LPHANDLE);
spitOut(*LOGHANDLE);
其中子程序spitOut的代码如下：
sub spitOut {
my $fh = shift;
print $fh "Gee Wilbur, I like this lettucen";
}
注意其中文件句柄引用的语法为*FILEHANDLE。