C:\>perl -wle "$ld = unpack 'D>', pack 'D>', 2.9; print $ld"
2.9