Select Code to Download

#!/usr/bin/perl

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