use strict;
use warnings;

my $str;

open my $fOut, '>', \$str;
print $fOut "Hello World\n";
close $fOut;

open my $fIn, '<', \$str;
my $inStr = <$fIn>;
close $fIn;

print $inStr;