$ charnames "a" => "a: LATIN SMALL LETTER A"

charnames

#! /usr/bin/env perl

use utf8;
use Encode;
use charnames ':full';

binmode STDIN, ":utf8";
binmode STDOUT, ":utf8";

if (@ARGV == 0) {
        print "charnames [char]\n";
        exit 0;
}

my $char = Encode::decode_utf8($ARGV[0]);
print substr($char, 0, 1) . ": " . charnames::viacode(ord($char)) . "\n";
exit 0;