#!C:/perl/bin/perl.exe

use warnings;
use strict;

use RRDTool::OO;
use XML::Simple;
use Data::Dumper;


my $rrd = RRDTool::OO->new( file => "test.rdd" );

$rrd->create(
        	step        => 1, 
        	data_source => { name => "mydatasource",
                type        => "GAUGE" },
                archive     => { rows => 5 });

for(1..2) {
    $rrd->update($_);
    sleep 1;
}

my $pid;

unless ($pid = open DUMP, "-|") {
    die "Can't fork: $!" unless defined $pid;
    $rrd->dump();
    exit 0;
}

waitpid($pid, 0);

my $data = join '', <DUMP>;
my $ref = XMLin($data);

print Dumper($ref);