use bigrat;

$i = 2;
print("i: ", ref($i), "\n");

($j) = ($i .. $i);
print("j: ", ref($j), "\n");

##</code><code>##

i: Math::BigInt
j:

##</code><code>##

use bigrat;

for (my $n=1; $n<=30; ++$n) {
   my $s = 0;
   for (my $k=1; $k<$n; ++$k) {
      $s += $k / ($n-$k);
   }
   print "n = $n, s = $s\n";
}

##</code><code>##

$x = Math::BigRat->new($x);