$ perl -we 'printf "%04x\n" => unpack "S" => ~ pack "S" => 127'
ff80