Select Code to Download

perl -MIO::Scalar -le 'my $s; $SH = IO::Scalar->new(\$s); print $SH "f
+oo"; print $s'

use IO::Scalar;

...
}

print $s;

use IO::Scalar;
$string = tie *STDOUT, 'IO::Scalar';
print "foo\n"; 
print STDERR '$string: ', $string;    # Must use stderr as stdout is t
+ied.