#!/usr/local/bin/perl
say(do { use Unicode::UCD qw(num); say(num("一")); })