use Time::Local;
my @start = split /\./,$_[0];
my @heute = split /\./,$_[1];
for (\@start, \@heute) {
	--$_->[1];
	$_->[2] -= 1900;
}
my $zwischenraum = (timegm((0)x3,@heute) - timegm((0)x3,@start)) / 86400;