Mocking time

Many thanks to suic for his answer http://stackoverflow.com/questions/17962280/how-to-mock-perl-module-timehires