use strict; use warnings; open LOG,">foo.log" or die "can't open foo.log: $!"; my $selected = select(LOG); $|++; select($selected); while(1) { print LOG (localtime).": something\n"; sleep(5); }