perl time_bug.pl