sub is_big_endian {
    my ($a,$b,$c,$d) = unpack("C4",pack("L",0x01020304));
    ($a==0x01) && ($b==0x02) && return 1; #big endian
    ($a==0x04) && ($b==0x03) && return 0; #little endian
}