Date::Manip (Sullivan Beck)

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