gistfile1.pl

#!/usr/bin/env perl
use Modern::Perl;
use Math::Primality 'next_prime';

my $prime = 2;
my $sum;

while ( $prime < 2_000_000 ) {
    $sum  += $prime;
    $prime = next_prime($prime);
}

say $sum;