open NIL, '>', '/dev/null' or die $!;
select NIL;
#...
select STDOUT;
close NIL or die $!;