[005] ~$ perl -e 'use Gtk2 -init; print unpack("H*", 123.789) . "\n";'
3132332c373839

[006] ~$ perl -e 'use locale; print unpack("H*", 123.789) . "\n";' 
3132332e373839

[007] ~$ perl -e 'print unpack("H*", 123.789) . "\n";' 
3132332e373839

[008] ~$ perl -e 'use Gtk2 -init; print unpack("H*", "123.789") . "\n";'
3132332e373839

[009] ~$ perl -e 'use Gtk2 -init; print unpack("H*", 123.789 . "") . "\n";'
3132332c373839