playing with Perl time functions