sub version { no warnings 'once'; print "Wert: ", $main::zahl=$main::zahl; }