#!/usr/bin/perl
use strict;
use warnings;

BEGIN {
    use POSIX qw(setlocale locale_h);
    $ENV{LC_ALL}=q{cs_CZ.UTF-8};
    setlocale(LC_ALL, q{});
    system qw(locale);

    my $v=1.52;
    print qq{Decimal number: $v\n};
}

use lib '.';
use M;

