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