Select Code to Download

my $start="$y-$m-01";my $first="$y-$m-01";
my $datestr = UnixDate(ParseDate($start), " %b");my $last_day=ParseDat
+e("last day in $datestr");
...
my @t_dates = &ParseRecur("0:0:0:1:0:0:0",$first,$start,$end);
print  "@t_dates";
print "\n------\n";

2011-01-01,2011-01-01,2011-01-31
2011010100:00:00 2011010200:00:00 2011010300:00:00 2011010400:00:00 20
+11010500:00:00 2011010600:00:00 2011010700:00:00 2011010800:00:00 201
+1010900:00:00 2011011000:00:00 2011011100:00:00 2011011200:00:00 2011
+011300:00:00 2011011400:00:00 2011011500:00:00 2011011600:00:00 20110
+11700:00:00 2011011800:00:00 2011011900:00:00 2011012000:00:00 201101
+2100:00:00 2011012200:00:00 2011012300:00:00 2011012400:00:00 2011012
+500:00:00 2011012600:00:00 2011012700:00:00 2011012800:00:00 20110129
+00:00:00 2011013000:00:00 2011013100:00:00
------
...
2011-06-01,2011-06-01,2011-06-30
2011060100:00:00 2011060200:00:00 2011060300:00:00 2011060400:00:00 20
+11060500:00:00 2011060600:00:00 2011060700:00:00 2011060800:00:00 201
+1060900:00:00 2011061000:00:00 2011061100:00:00 2011061200:00:00 2011
+061300:00:00 2011061400:00:00 2011061500:00:00 2011061600:00:00 20110
+61700:00:00 2011061800:00:00 2011061900:00:00 2011062000:00:00 201106
+2100:00:00 2011062200:00:00 2011062300:00:00 2011062400:00:00 2011062
+500:00:00 2011062600:00:00 2011062700:00:00 2011062800:00:00 20110629
+00:00:00 2011063000:00:00
------