my $date = sprintf "%02d.%02d.", $dt->day, $dt->month;