open OUT,">>", \$out ;
select OUT; $| = 1 ;