Select Code to Download

{
   open local *STDOUT, '>', \$buf;
   ...
}

open TEMP, '>', \$buf;
my $old_select = select(TEMP);
...
select($old_select);

{
   my $old_select = select();
...
   select(STDOUT);
   ...
}