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");
}