use POSIX qw(strftime);
my $DATE = strftime("%Y%m%d", localtime());     # or use gmtime()