my @now = (localtime)[0..5];
my $datum = sprintf("%02d.%02d.%04d",$now[3],++$now[4],$now[5]+1900);# Aktuelles Tagesdatum im Format TT.MM.JJJJ