#!/usr/local/bin/perl


my $big_endian =
    pack('N', 1) eq
    pack('L', 1);

print "BIG\n" if $big_endian ;



  sub float_sort ($) {
    ($big_endian ?
      pack 'd', $_[0] :
      reverse pack 'd', $_[0]) ^
      ($_[0] < 0 ? "\xFF" x 8 :
          "\x80" . "\x00" x 7)
  }


