use Date::Manip; &Date_Init("DateFormat=non-US"); my $start = ParseDate("1/1/2006"); my $stop = ParseDate("31/12/2006"); # Y:M:W:D:H:MN:S my @dates = ParseRecur( "0:1*2:1:0:0:0", $start,$start,$stop); for my $date (@dates) { print UnixDate($date, "The %E of %B\n"); }