怎么改变print的默认输出？
select
昵称: DQP 时间: 2010-07-13 16:31:00
open(STDOUT,">/var/file");
print 111;
print 111;
昵称: yybmsrs 时间: 2010-07-13 16:32:00
- perl -e 'open FH, ">/tmp/abc"; select FH; print "def";'
昵称: ynchnluiti 时间: 2010-07-13 16:32:00
perl test.pl >/var/file
昵称: guap514 时间: 2010-07-13 16:55:00
默认print是输出到STDOUT，怎么改变？
比如我想让print默认输出到文件/var/file