#!/usr/bin/perl
use Date::Manip;
@date = ParseRecur("0:0:1*1,3,5:0:0:0","May 25 2010","6/1/2010","8/30/2010");# every MWF between the two dates.
foreach $i (@date){
print "The date is $i\n";
}
exit;