$ perl -E'say sprintf "%vX", pack "d>", $ARGV[0]', 0.1
3F.B9.99.99.99.99.99.9A