use charnames qw(:full :short);