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