use strict;
use warnings;
use Unicode::UCD 'charinfo';         
use utf8;                            
binmode STDOUT, ":encoding(UTF-8)";  

my @chars = map {ord} qw/A    /; 
my $print_format = '%5s %-35s';
printf "$print_format%8s %s\n" , 'char', 'name', 'unicode', 'utf-8 encoding';
map{
	my $name = charinfo($_)->{'name'}; 
	printf "$print_format %06x  " , chr, lc $name, $_;
	my $utf8 = chr;                    
	utf8::encode($utf8);               
	map{                               
		printf "%x", ord;
	} split //, $utf8;
	print "\n";
} @chars;