Select Code to Download

# $h = unpack "H16", pack "d", 27.53152055;
27.53152055  => e566 13bb 1188 3b40  
...

# $h = reverse unpack "h16", pack "d", 27.53152055;
# 403b8811bb1366e5

sub fix_endian {
    my $h = shift;
...
01
91
403b 8811 bb13 66e4