use Encode;
binmode STDOUT, ":utf8";
binmode STDERR, ":utf8";

for (0x0..0xffff) {
    $c = pack( "v", $_ );
    eval { $u = decode( "UTF-16LE", $c, Encode::FB_WARN ) };
    if ( $@ ) {
        warn $@;
        print "\x{FEFF}\n";
    }
    else {
        $u = '\\n' if ( $u eq "\n" );  # just so LF doesn't show up as two lines
        print "$u\n";
    }
}