open(my $outfh, '>', \$buf)