<option selected value="3/6/2008">3/6/2008</op
 <option value="3/5/2008">3/5/2008</option>
 <option value="3/4/2008">3/4/2008</option>
 <option value="3/3/2008">3/3/2008</option>
 <option value="2/29/2008">2/29/2008</option>
 <option value="2/28/2008">2/28/2008</option>
 <option value="2/27/2008">2/27/2008</option>
 <option value="2/26/2008">2/26/2008</option>
 <option value="2/25/2008">2/25/2008</option>
 <option value="2/22/2008">2/22/2008</option>
 <option value="2/21/2008">2/21/2008</option>
 <option value="2/20/2008">2/20/2008</option>
 <option value="2/19/2008">2/19/2008</option>
 <option value="2/18/2008">2/18/2008</option>
 <option value="2/15/2008">2/15/2008</option>
 <option value="2/14/2008">2/14/2008</option>
 <option value="2/13/2008">2/13/2008</option>
 <option value="2/12/2008">2/12/2008</option>
 <option value="2/11/2008">2/11/2008</option>
 <option value="2/8/2008">2/8/2008</option>
 <option value="2/7/2008">2/7/2008</option>
 <option value="2/6/2008">2/6/2008</option>
 <option value="2/5/2008">2/5/2008</option>
 <option value="2/4/2008">2/4/2008</option>
 <option value="2/1/2008">2/1/2008</option>
 <option value="1/31/2008">1/31/2008</option>
 <option value="1/30/2008">1/30/2008</option>
 <option value="1/29/2008">1/29/2008</option>
 <option value="1/28/2008">1/28/2008</option>
 <option value="1/25/2008">1/25/2008</option>
 <option value="1/24/2008">1/24/2008</option>
 <option value="1/23/2008">1/23/2008</option>
[download]

You could do a $d = new Date::Business(DATE => '20071123', OFFSET => 1 ); to get the date for the day after 01/23/2008.

The code actually works on the dates, I just need to figure it out how the dropdown above will have the last option as today's date!

I forgot, course after doing the reverse like this:



     if (($dow != 6) && ($dow != 7)){

                 if ("$mon/$mday/$year" eq $selected_date_from){

                                   push(@date_dd_from_r,"<option selec
+ted value=\"$mon/$mday/$year\">$mon/$mday/$year</option>\n");
                                                               @date_d
+d_from = reverse @date_dd_from_r;

                                  }else{

                                        push(@date_dd_from_r,"<option 
+value=\"$mon/$mday/$year\">$mon/$mday/$year</option>\n");
                                                                      
+  @date_dd_from = reverse @date_dd_from_r;

                                        }

                 if ("$mon/$mday/$year" eq $selected_date_to){

                                                  push(@date_dd_to_r,"
+<option selected value=\"$mon/$mday/$year\">$mon/$mday/$year</option>
+\n");
                                                              @date_dd
+_to = reverse @date_dd_to_r;

                                                  }else{

                                        push(@date_dd_to_r,"<option va
+lue=\"$mon/$mday/$year\">$mon/$mday/$year</option>\n");
                                                                      
+  @date_dd_to = reverse @date_dd_to_r;

                                        }

       }
[download]


Just need to know how to have today's date to the list.