>perl -e"printf(qq{%d\n}, unpack('C', pack('h', 'F')));"
15

##</code><code>##

>perl -le"print(hex('F'));"
15