perl -e 'use Date::Format;print time2str("%d-%m-%Y\n", time);'