sub charname_to_char {
  my $name = shift;
  eval qq{
    # because $^H{charnames} doesn't propogate into here
    use charnames ':full';
    "\\N{$name}"
  };
}