my ($sek,$min,$std,$tag,$mon,$jahr) = (localtime)[0..5];
$mon++;
$jahr+=1900;