use strict;
use IO::String;

my $buffer = IO::String->new();
select $buffer;

print "hello world\n";
print "testing 1 2 3\n";

# then later ...
select STDOUT;
print  ${$buffer->string_ref};
[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)