Help for this page
key = year-month , value = day::(either rented, open or closed) 2005-jan => 11::rented 2005-jan => 12::rented 2005-jan => 13::open
use Calendar::Simple; ... } print "</tr></table>";