#! /usr/bin/perl -w
#simple test ABSOLUTE DS
use strict;
use RRDTool::OO;

# creating new rrd object file 
  my $rrd = RRDTool::OO->new(
      file => "testrrd.rrd" );

# Create a round-robin database
    $rrd->create(
         step        => 1,  # one-second intervals
         data_source => { name      => "mynewDS",
                          type      => "ABSOLUTE" },
         archive     => { rows      => 5 });