Select Code to Download

open PRIMES, $primefile;
while(<PRIMES>) {
...
open PRIMES, $primefile;
@parray = <PRIMES>;
close PRIMES;

if($lowrange % 2 == 0) { $lowrange++; }

# could be 

$lowrange++ unless ($lowrange % 2);

print "\nTotal amount of primes: $counter \n";
print "Your results have been saved, starting with
".$path.$beginloc.$last."\n\n";

print "\nTotal amount of primes: $counter \n",
      "Your results have been saved, starting with
".$path.$beginloc.$last."\n\n";

print "Your results have been saved, starting with
".$path.$beginloc.$last."\n\n";

# becomes
print "Your results have been saved, starting with ${path}${beginloc}$
+{last}\n\n";