encoding-out

use strict;
use warnings;
use open qw(:std :encoding(utf-8));
while (my $line = <>) {
    chomp $line;
    printf "%vX\n", $line;
    print $line, "\n";
}