Select Code to Download

use warnings;
use strict;
...
my $terms = shift || 4;

forpart { print "@_\n" if @_ == uniq @_ } $sum,{n=>$terms};

use warnings;
use strict;
...
    print "@_\n" if @_ == uniq @_
  } $sum, {n=>$terms, amax=>$amax};
}