#!/usr/bin/perl

use Date::Manip;

print "Starting....\n";

$recur = new Date::Manip::Recur;

$start = $recur->new_date();
$end   = $recur->new_date();
$base = $recur->new_date();

$err=$start->parse("Jun 1 2010");
print "start err is $err \n";

$err=$end->parse("Aug 30 2010");
print "end err is $err \n";

$err=$base->parse("May 25 2010");
print "base err is $err \n";

$err=$recur->frequency("0:0:1*1,3,5:0:0:0");
print "freq err is $err \n";

@date = $recur->dates();
print "dates err is $err \n";

foreach $i (@date){
print "The date is $i\n";
}
exit;