#!/usr/bin/perl -w

use strict;
use Date::Manip;

my $base = "2000123123:59:59";
my $start = "2001010100:00:00";
my $stop = "2001123123:59:59";
my $syntax = "0:1*1:1:0:0:0";
my @dates = &ParseRecur($syntax,$base,$start,$stop);

foreach my $day (@dates)
{
 print "\$day is [$day]\n";
}