1 #用select, 要先select一个句柄， 用完后记得select回原来的
 2 open FILE, ">log.txt";
 3 select FILE;
 4 $| = 1;
 5 #$|为true时设置FILE为无缓冲
 6 print FILE "The log file data";
 7 #print "The log file data";
 8 select STDOUT;
 9 #上面的打印不会经过缓冲而直接写进文件log.txt
10 close FILE;
11 
12 #方法二
13 use IO::Handle;
14 open DATA, ">err.log";
15 DATA->autoflush(1);
16 print DATA "login errot";
17 DATA->close;
18 
19 # 其实第6行的文件句柄可以去掉
20 
21 # 如果你选择了一个句柄， print默认的输出方向就是你select那个
22 
23 # 最好用完后恢复stdout