#!/usr/local/bin/perl
use strict;
use warnings;
use Data::Dumper;
use Unicode::UCD 'charinfo';
use utf8;
print Dumper charinfo(ord "あ");