Select Code to Download

{
    open local(*STDOUT), '>', '/dev/null' or die $!;
   #...
    close STDOUT or die $!;
}
# STDOUT is restored here

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