Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...

print "$j\n";
printf "%.16e\n", $j;

126
1.2599999999999999e+002