my $date = POSIX::strftime "%Y%m%d", localtime;