#!/usr/bin/perl

  use strict;

  my ($num, $str, @bytes);

  $num = -1.18024688796416e+29;

  $str = pack('f', $num);

  showstring('native', $str);

  @bytes = split('', $str);
  @bytes = reverse(@bytes);

  $str = join('', @bytes);
  $str = pack('a4', $str);

  showstring('alien ', $str);

#-----------------------------------------------------------
sub showstring {

  my ($label, $str) = @_;

  my @bytes = unpack('H2H2H2H2', $str);

  print "$label 0x", join("", @bytes), "\n";
}