#!/usr/bin/perl
use warnings;
use strict;

open my $save_out, '>&', \*STDOUT  or die "Can't dup STDOUT: $!";
close STDOUT;
my $output;
open STDOUT,       '>',  \$output  or die "Can't open STDOUT: $!";
print "test \n";
close STDOUT;
open STDOUT,       '>&', $save_out or die "Can't restore STDOUT: $!";
print "Back\n";
print $output;