use strict; my $An = unpack ('s',pack ('S',hex('ff28'))); print "A= $An\n"; C:\Perl64\OnesComplement>perl Ones.pl A= -216