perl unicode dump 2nd version (with charnames)

PERL_UNICODE=ADSL perl -Mcharnames=:full -e 'print $a=sprintf(qq(\\x{%04X}),$_),qq(\t@{[eval q(").$a.q(")]}\t@{[charnames::viacode($_)]}\n) for 0x0 .. 0xa00' | less