my ($long1, $long2, $byte1, $byte2, $double) = unpack 'NNCCd', $raw;