#!/usr/bin/perl --

use strict;
use warnings;

use DateTime::Event::Recurrence;


{
    my $dt1 = new DateTime( year => 2008 );
    my $dt2 = new DateTime( year => 2009 );
    my $der = DateTime::Event::Recurrence->weekly; 
    print $_->ymd, ' ', ,$/ for 
        $der->as_list( start => $dt1, end => $dt2 );
}

# http://datetime.perl.org/index.cgi?FAQDurationsSetsSpans


__END__