I'm trying to do my first rrd graph through Perl. I have tried RRD::Simple and rrds and just can't get either one to work.

Here's what I have so far:

 use strict;
 use RRD::Simple ();

 # Create an interface object
 my $rrd = RRD::Simple->new( file => "server.rrd" );

 # Put some arbitary data values in the RRD file for the same
 # 3 data sources called bytesIn, bytesOut and faultsPerSec.
  $rrd->create(
             EqSearch => "DERIVE",
             MfSearch => "DERIVE",
             EQCostBasis => "DERIVE",
             MFCostBasis => "DERIVE"
         );

 $rrd->update(
             EqSearch => 2,
             MfSearch => 3,
             EQCostBasis => 10,
             MFCostBasis => 15
         );

 # Generate graphs:
 # /var/tmp/myfile-daily.png, /var/tmp/myfile-weekly.png
 # /var/tmp/myfile-monthly.png, /var/tmp/myfile-annual.png
 my %rtn = $rrd->graph(
             destination => "/Users/cmuench/Documents/Code/perl",
             title => "Server A",
             vertical_label => "",
             interlaced => "",
             periods => [qw(hour)]
         );