Select Code to Download

use warnings;
use strict;
...
    $period = int $period;
    return "$period $periods[0][0]";
}

        4 seconds is about 4 seconds
      250 seconds is about 4 minutes
...
  3000000 seconds is about 4 weeks
 12000000 seconds is about 4 months
150000000 seconds is about 4 years