Memoize

Perl_string_stream

 
#! /usr/bin/perl
use warnings;
use strict;
 
# string stream
open my $string_fh, ">", \ my $string;
print $string_fh "it's string stream.\n" for (1..3);
 
# flush
print $string;
# ->
# it's string stream.
# it's string stream.
# it's string stream.