BEGIN {
   setlocale LC_NUMERIC, "german";
}

$n = 1 / 2;
print $n . "\n";   # 0,5
print 1/2 ."\n";   # 0,5