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