my $date_as_YYYY_MM_DD = do {
        my @d = localtime;
        sprintf "%04d-%02d-%02d", $d[5] + 1900, ++$d[4], $d[3];
        };