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