Help for this page
Select Code to Download
Select
or
download this
my $fh = select COLORS; $|++; select $fh;
Select
or
download this
select((select(COLORS), $| = 1)[0]);