30     29            1
  ---- + ---- + ... + ---- 
    1      2           30

##</code><code>##

use strict;
use warnings;
use bigrat;

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

##</code><code>##

n = 1, sum = 0
n = 2, sum = 1
n = 3, sum = 2.5
n = 4, sum = 4.333333333333333

##</code><code>##

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

##</code><code>##

n = 1, sum = 0
n = 2, sum = 1
n = 3, sum = 5/2
n = 4, sum = 13/3

##</code><code>##

for my $n (1..30) {
  ...
  push(@nums, $s->numerator);
  push(@denoms, $s->denominator);
}

##</code><code>##

Can't locate object method "numerator" via package "Math::BigInt" at ./frac line ...

##</code><code>##

use bigrat;
my $x = 1;
print $x->numerator, "\n";