Select Code to Download

    my $num = 1.2345;

    print join(" ", map { sprintf "0x%02x", $_ } 
                    unpack("C*", pack "f", $num)), "\n";

    use POSIX 'ldexp';

...

        return $num;
    }