use strict;
use warnings;

my $d = 2 ** -1074;
my $py = `python3 -c \"print($d)\"`;
print "$py\n";
# prints 5e-324

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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