Select Code to Download

use strict;
use warnings;
...
    # (ISO8601)
    return join '-', @components{qw(year month day)};
}