in reply to Re: Routine stopped working
in thread Routine stopped working

Found that this was the culprit. Fixed problem much research.

$date = sprintf(time2str("%D", time));

In Section Seekers of Perl Wisdom