Select Code to Download

use Date::Manip; 
$input = "June 2006"; 
...
$lastofmonth = DateCalc($thismonth, "+1 month -1 day");
$dow_lastofmonth = UnixDate($lastofmonth, "%A\n"); 
print $dow_lastofmonth;