perl Time-Period