sub version { print "Wert: ", $main::zahl=$main::zahl; }