my ($a,$b,$c,$d) = unpack , 'lssQ' , $buffer