my $BIG_ENDIAN = unpack("h*", pack("s", 1)) =~ /01/;

if($BIG_ENDIAN) {
  print STDERR "[big endian]\n" if $debug;
} else {
  print STDERR "[little endian]\n" if $debug;
}