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