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