D:\Perl\dl>perl -e "print unpack('s',pack 's', hex('ffaa'))"
-86