$ cat encode_locale.pl 
use utf8;
use Encode::Locale;

binmode STDOUT, ':encoding(console_out)';
print "Cäsar\n";

$ perl encode_locale.pl 
Cäsar