use strict;
use warnings;
use locale;
use POSIX qw(locale_h);
                                                                               
binmode( STDOUT, ":utf8" );
                                                                               
setlocale(LC_CTYPE, "german");                                                                               
my $accented_char = "\x{00dc}"; #Upper case U with DIAERESIS
print "accented char=$accented_char\n";                                                                               
my $lowercased = lc( $accented_char );                                                                               
print "lowercased=$lowercased\n";