#!/usr/bin/perl
use strict;
use warnings;
use Encode;
use utf8; # for literals;

binmode STDOUT, ':utf8';
{
    my $utf8  = 'dan小飼';
    my $ascii = encode 'ascii', $utf8, Encode::FB_XMLCREF;
    print '$utf8  = ', $utf8, "\n", '$ascii = ', $ascii, "\n";
}
{
    my $utf8  = 'dan小飼';
    my $ascii = encode 'ascii', $utf8, Encode::XMLCREF;
    print '$utf8  = ', $utf8, "\n", '$ascii = ', $ascii, "\n";
}