$ perl -le " print unpack q{H*}, q{Y} "
59

$ perl -le " print pack q{H*}, q{59} "
Y

$ perl -le " print ord q{Y}
89

$ perl -le " print  pack q{H*}, q{59} "
Y

$ perl -le " print  unpack q{C}, pack q{H*}, q{59} "
89