my $dmy = DateTime->now()->dmy('.');