Select Code to Download

use strict;
use warnings;
...
my $py = `python3 -c \"print($d)\"`;
print "$py\n";
# prints 5e-324

C:\>perl -le "print 2 ** -1074;"
4.94065645841247e-324

$ python3 -c "print(2 ** -1074)"
5e-324

C:\>perl -le "print 'ok' if 5e-324 == 4.94065645841247e-324;"
ok