my $datetody = $Jahr.$Monat.$Monatstag;
my $minoryear = substr($datetody,0,4) - 1;
$minoryear = $minoryear.$Monat.$Monatstag;