Select Code to Download

my $variable;

...
# Now test to see if $variable actually received the text.
print "Now for the real test.\n";
print $variable;

use Tie::STDERR \$append_to_scalar;