use POSIX qw(locale_h);
    my $old_locale = setlocale(LC_CTYPE);
    setlocale(LC_CTYPE, 'ca_ES.iso885915@euro');
    use locale;