#!/usr/bin/perl

use strict;
use warnings;

close STDOUT;

open( STDOUT, '>', \( my $output ) )
    or die "Can't open in-memory file: $!";

print "Hello world!\n";  # prints to $output

print STDERR 'STDOUT: ' . $output;