#!/usr/bin/env perl
use strict;
use warnings;
use locale;
use POSIX qw(setlocale LC_ALL);
setlocale(LC_ALL, "de_DE.utf8");

printf "%f\n", 1234.12;