Select Code to Download

my $mySTDOUT = ();
my $oldSTDOUT = ();
...
my $test = 'this is a test';

print "$test\n";

*STDOUT = *oldSTDOUT;