#!perl 
use warnings;
use strict;
use 5.10.0;

use File::HomeDir;
use Devel::Peek;
use Encode qw( decode );
use Encode::Locale;

binmode STDOUT, ':encoding(console_out)';
binmode STDERR, ':encoding(console_out)';

my $d = File::HomeDir->my_home();
Dump $d;
say $d;

$d = decode( 'locale', $d );
say "================================================";
Dump $d;
say $d;