#!/usr/bin/perl -w

use strict;

use v5.10;

@_ = (2, 3);

my $n = 3;

my $sum = 5;

while ($n < $ARGV[0]) {

$n += 2;

my $sqrt = sqrt($n);

for (@_) {

last if 0 == $n % $_;

next if $_ < $sqrt;

push @_, $n;

$sum += $n;

last;

}

}

say $sum;