Perl Module for check a time is recent