#!/usr/bin/perl

my $f = "3.6";
my $floatpack = pack("d",$f);

my $floatpack2 = pack("c*",reverse unpack("c*",$floatpack));
$f2 = unpack("d",$floatpack2);
print "f2=$f2\n";

my $floatpack3 = pack("c*",reverse unpack("c*",$floatpack2));
$f3 = unpack("d",$floatpack3);
print "f3=$f3\n";