use DateTime qw( );
my $date = DateTime
           ->today( time_zone => 'local' )
           ->strftime( '%Y-%m-%d' );

##</code><code>##

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