my $o= pack( 'I', 0x04030201 );
if(  substr($o,-4) eq "\04\03\02\01"  ) {
    return "big";
} elsif(  substr($o,0,4) eq "\01\02\03\04"  ) {
    return "little";
} else {
    die "Strange endian";
}