$ perl -wle 'print "ok" if 2.3 == unpack "d", pack "d", 2.3;'
ok