You might want to check whether Time::Fake (simple overriding of time and related functions) or Time::Warp (more extensive XS magic) are sufficient for your purposes.