use strict;
use PerlIO::scalar;

my $output;
my $file;

if (open($file, ">", \$output)) {
    print $file "This is a test.\n";
    close($file);
    print $output;
}