perl -MDateTime::Event::Recurrence -le "  print $_->ymd, chr(32) for  DateTime::Event::Recurrence->weekly->as_list( start => DateTime->new ( year => 2008 ), end => DateTime->new ( year => 2009 ) ); "

perl -MDateTime::Event::Recurrence -le '  print $_->ymd, chr(32) for  DateTime::Event::Recurrence->weekly->as_list( start => DateTime->new ( year => 2008 ), end => DateTime->new ( year => 2009 ) ); '