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