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