my $dfloat=unpack("d",reverse($yourbigendian));