my $oldfh = select $log;
# format, write
select $oldfh;