in reply to Timed event

oh by the way if you modify the $date->date_format(*) to 5 it prints:  date = 20011121

In Section Seekers of Perl Wisdom