my $buf;
open( $fh, "+<:scalar", \$buf );