D:\>perl -le "print unpack 'd', pack 'd', sqrt 2;"
1.4142135623731