open my $fh, ">", \my $string_to_write_to or die "...";