perl -MDate::Format -e 'print time2str("%o", 86400);'