$ C:\strawberry\perl\bin\perl.exe  -e " print pack q/d*/,(1.7453026326120991e+194,1.5156845462257262e-147)
Kerry Chtistmas!