D:\>perl -le "print 'WTF' if (unpack 'd', pack 'd', sqrt 2) != 1.41421356237309514547462185873883;"
WTF