[Perl] 同時輸出到output 和 file

use IO::Tee;
my $LOG_FILE_HDL;
my $tee = IO::Tee->new('>io_tee_out.txt', \*STDOUT);
print $tee "foo";

code不用自己寫真好 >"<