my ($tag, $monat, $jahr) = (localtime())[3..5];
++$monat;
$jahr += 1900;
my $datum = sprintf "%02s.%02s.%4s", $tag, $monat, $jahr;
print $datum;