Perhaps something like this

use IO::Scalar;

my $str = IO::Scalar->new;
select *$str;
$rrd->dump();
select *STDOUT;
# now parse $str;
[download]