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

##</code><code>##

use POSIX qw( strftime );
my $d_YMD = POSIX::strftime ("%Y-%m-%d", localtime);
my $d_Md  = POSIX::strftime ("%d %b", localtime); # I prefer 04 Sep over Sep 04