use Date::Simple ('today');

my $today = today();
my $year  = $today->year;
my $month = $today->month;
my $day   = $today->day;

##</code><code>##

use Date::Simple ('today');

my $today = today()->month . '.' . today()->day . '.' . today()->year;

##</code><code>##

use Time::Piece;

my $t = localtime;
my $todays_date = $t->mdy('.');


##</code><code>##

use Time::Piece;

my $t = localtime;
my $todays_date = $t->strftime('%d.%m.%y');

##</code><code>##

use Time::Piece;

my $t = localtime;
my $todays_date = $t->strftime('%x');