Select Code to Download

use strict;
use Time::Local qw(timelocal);
...
        die "Invalid time '$date_time'";
    }
}

my $sec_in_week = (get_time($date_time) - $base_time)%(60*60*24*7);

my $base_time = get_time("20000101000000");
my @time_start;
...

push @time_start, get_time("20000108000000") - $base_time;
push @time_bucket, "next week";