#!/usr/bin/perl

use strict;
use warnings;

use Encode qw( encode from_to );

print("Content-Type: text/html; charset=utf-8\n\n");

my $name = encode('utf-16le', "\x{65E5}\x{672C}\x{8A9E}");
eval { from_to($name, 'utf-16le', 'utf-8', Encode::FB_CROAK); 1 }
    or print("coaked\n");

print $name;