my $fh = select COLORS;
$|++;
select $fh;