$ perl -MPOSIX=DBL_MIN -wle'print DBL_MIN()'
2.2250738585072e-308
$ perl -MPOSIX=DBL_MIN -wle'print DBL_MIN()/2**52'
4.94065645841247e-324
$ perl -MPOSIX=DBL_MIN -wle'print DBL_MIN()/2**53'
0