# set up flushing
select(STDERR);
$| = 1;
select(STDOUT); # default
$| = 1;