in reply to time change

You could probably use Time::Mock or Test::MockTime.

In Section Seekers of Perl Wisdom