Help for this page
setlocale LC_NUMERIC, "german"; ... print "$n\n"; # 0,5 print $n . "\n"; # 0,5 print 1/2 ."\n"; # 0.5