$y = Encode::decode('some encoding', $x);
binmode STDOUT, ":bytes"; print $x;
...