# 5.8
{
   open(local *STDOUT, '>', \$buf);
   ...
}   

# 5.6 (Untested)
{
   local *STDOUT = IO::String->new(\$buf);
   ...
}