use strict; 
use warnings;
use DateTime::Event::Recurrence;
use DateTime::SpanSet;
use RRDs;
#
# Set up paths, config data etc...
#

foreach $file ( @array_of_RRD_filenames )
{
    my ( $metric, $interval, $begin, $end ) =
      ( 'AVERAGE', '1800', '-800h', 'now' );
    my $start_span =
      DateTime::Event::Recurrence->weekly( days => [ 1 .. 5 ], hours => 8 );
    my $end_span =
      DateTime::Event::Recurrence->weekly( days => [ 1 .. 5 ], hours => 18 );
    my $span_set = DateTime::SpanSet->from_sets( start_set => $start_span,
                                                 end_set   => $end_span );
    push @opts, $file;
    push @opts, $metric;
    push @opts, "-r $interval";
    push @opts, "-s $begin";
    push @opts, "-e $end";
    my ( $start, $step, $names, $data ) = RRDs::fetch @opts;