Select Code to Download

while ( defined $dates[0] ) {
    my $days = $dates[0];
    my ( $year, $month, $day ) = Add_Delta_Days( 1, 1, 1, $days - 1 );
    my $new_c = new HTML::CalendarMonth ( year => $year, month => $mon
+th ); 
}