my $datum = ((localtime())[5]+1900) . '-' . ((localtime())[4]+1) . '-' . ((localtime())[3]);