$ perl -wE'printf"%.0e\n",2 ** -1074'
5e-324