in reply to Display Date selection

Not a perlish answer, but maybe The Coolest DHTML / JavaScript Calendar is something for you...
s$$([},&%#}/&/]+}%&{})*;#$&&s&&$^X.($'^"%]=\&(|?*{%
+.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e

In Section Seekers of Perl Wisdom