$len4 = pack "N", length, $key;