perl -MDateTime -E"say DateTime->today( time_zone => 'local' )->ymd"