my $blob = pack('LP', length($data), $data);