#!/usr/bin/perl -w
#
use strict;

my $bis = $ARGV[0];
if (! defined($bis) || $bis < 2) {
   print "'$bis' ist keine korrekte Angabe.\nUSAGE: find_prim.pl 2+";
   exit
}

my @prim = (2);

L:for (my$az = 3;$az <= $bis;$az += 2) {
   foreach (@prim) {
     if ($_ > $az/2) { last }
     if ($az % $_ == 0) {
       next L;
     }
   }
   push(@prim,$az);
}

print "Primzahlen gefunden!\n";
print "Ausgeben ?[j/n]  ";
chomp(my$i = <STDIN>);

if (lc($i) eq "j") {
   $" = "\t";
   print "@prim";
}

1