#!/usr/bin/perl -w

use locale;
use POSIX qw(locale_h strtod);  # Imports setlocale() and the LC_ constants.

setlocale (LC_NUMERIC, "fr_BE.utf8")
  or die "Unable to set 'fr_BE.utf8' locale\n";

printf ("fr_BE: 5/2 is: %f\n", 5/2);
printf ("fr_BE: strtod is: %f\n", (strtod("2,5"))[0]);

setlocale (LC_NUMERIC, "C") or die "Unable to set 'C' locale\n";

printf ("C: 5/2 is: %f\n", 5/2);
