use Time::Piece;

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