use v5.14;
use warnings;

use utf8;

use Win32 qw( );

my $enc = -t STDOUT ? "cp" . Win32::GetConsoleOutputCP() : "UTF-8";

binmode( STDOUT, ":encoding($enc)" );

my $str = "δφόΔΦάί";
#warn sprintf "%vX", $str;  # E4.F6.FC.C4.D6.DC.DF

say $str;