Select Code to Download

use Time::Local qw( timegm_nocheck );

...

printf "start: %04d-%02d-%02d\n", $y, $m, $ds;
printf "  end: %04d-%02d-%02d\n", $y, $m, $de;