$packed = pack   'L', $count;
...
$count  = unpack 'L', $packed;