Select Code to Download

use warnings;
use strict;
...
    $n = $key +1;
}
print "$sum_total\n";

use Math::Prime::Util::GMP qw/sigma/;
print grep( { sigma($_)>2*$_ } 12 .. 28123 )."\n";
__END__
6965