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