Create a widget of type Tk::Date. Enter date as 1, month as 50
(basically a large value) and year as 1. Now press the down button for
date (that calculates date down one at a time). Perl dumps core
(This was tries on Cygwin with perl version 5.10.1 and Tk version
804.029