#!/usr/bin/perl -l
use Date::Manip;

my $date  = ParseDate("01/31/07");
my @dates = ParseRecur("0:1:0*-1:0:0:0",$date,$date,"01/31/08");

foreach ( @dates ) {
  print UnixDate $_,"%D";
}