#BEGIN { @diagnostics::MODULES = qw(charnames) }
use diagnostics ('-m=charnames');
use charnames;