use POSIX;
my $date      = POSIX::strftime( '%Y-%m-%d', localtime );
print "$date\n";
__END__
2014-09-04