#!/usr/local/bin/perl

open (STDIN, "uniconv -O UCS2BE|");

dbmopen (%charname, "/usr/doc/unicode/unidata/charname.db", 0666);

while (! eof(STDIN))
{
    $C=getc(STDIN).getc(STDIN);
    $H=sprintf("%04X", unpack("n", $C)); 
    print "[U+$H $charname{$C}]\n";
}