my $foo = '';
open FILEHANDLE, '+>', \$foo or die $!;