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

##</code><code>##

select((select(COLORS), $| = 1)[0]);