To get the desired result,

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

or

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

As you can see, the OP has pack and unpack backwards.