my $mySTDOUT = ();
my $oldSTDOUT = ();

*oldSTDOUT = *STDOUT;
*STDOUT = *mySTDOUT;

my $test = 'this is a test';

print "$test\n";

##</code><code>##

*STDOUT = *oldSTDOUT;