or download this
use DateTime::Format::ISO8601;
my $dt = DateTime::Format::ISO8601->parse_datetime('2016');
say join(',', $dt->year, $dt->month, $dt->day);
my $dt = DateTime::Format::ISO8601->parse_datetime('2016-01-01');
say join(',', $dt->year, $dt->month, $dt->day);