setlocale LC_NUMERIC, "german";

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