use POSIX qw(strftime);
my $date = strftime "%Y-%m-%d", localtime;