my $bytes = pack "s", -12345;
print unpack "s", $bytes;