use Date::Format;
print time2str( '%Y-%m-%e', time );

##</code><code>##

perl -MDate::Format -e 'print time2str( "%Y-%m-%e", time )'