note
chibiryuu
<code>
use if $] < 5.008, 'IO::Scalar';
# IO::Scalar is needed in pre-5.8 Perl
my $var = ''; # this is the variable we will be writing to or reading from
my $fh; # this is a filehandle, reads and writes will go to $var
if ($] < 5.008) {$fh = new IO::Scalar \$var}
else {open $fh, '+<', \$var}
$fh or die "can't get filehandle for \$var: $!";
print $fh "These print statements will\n";
print $fh "be appended to \$var.\n";
seek $fh, 0, 0; # reading and writing <$fh> will seek in $var.
my $var1 = <$fh>;
my $var2 = <$fh>;
print $var1; # print "These print statements will\n"
print $var2; # print "be appended to \$var.\n"
</code>
510501
510507