#!/usr/bin/perl
use autodie;
open LOG, '>>', 'log_file';
print LOG "first log input\n";
close LOG;
open LOG, '>>', 'log_file';
print LOG "second log input\n";
close LOG;
$| = 1; #使得当前的文件句柄输出立即显示在屏幕上
select STDOUT;
print "sadafd";
open LOG, '>>', 'log_file';
print LOG "dsadadsf";
close LOG;