use strict;
use warnings;
use utf8;

use open qw(:std :utf8);

$\="\n";


print "Perlversion $]";
my $SS = "\x{1E9E}";



no locale;
print "=== local off LANG=$ENV{LANG}";

print "* TEST UC";
print "$_ -> ",ord($_)  for "ß", "\Uß", uc("ß");

print "* TEST LC";
print "$_ -> ",ord($_)  for $SS, "\L$SS", lc($SS);



use locale;
print "=== local on LANG=$ENV{LANG}";

print "* TEST UC";
print "$_ -> ",ord($_)  for "ß", "\Uß", uc("ß");

print "* TEST LC";
print "$_ -> ",ord($_)  for $SS, "\L$SS", lc($SS);