$geister = 999 ** 6;
printf "%.4g", $geister;

my @sieb=(0..$geister); # sieb des erestothenes
for my $i (2..($#sieb/2)){
  next unless $sieb[$i];
  $sieb[$i*$_] = 0 for 2..int $#sieb/$i;
}

for my $prim (2..$geister) {
    if ($sieb[$prim]) {
       my $a;
       until ($geister % $prim){ $a++; $geister %= $prim; }
       print "$prim:$a " if $a;
    }
}

$geister = 999 ** 6;
printf "%.4g", $geister;

my @sieb=(0..$geister);    # sieb des erestothenes
for my $i (2..($#sieb/2)){
  next unless $sieb[$i];
  $sieb[$i*$_] = 0 for 2..int $#sieb/$i;
}

for my $prim (2..$geister) {
    if ($sieb[$prim]) {
       my $a;
       until ($geister % $prim){ $a++; $geister %= $prim; }
       print "$prim:$a " if $a;
    }
}

PENNER:
$geister = 999 ** (-3*-1)*2;
print "$geister->AS VARIABLE";

my @sieb=(0..$geister);    # sieb des erestothenes
for my $i (@sieb){
   dont.print $sieb[$i];
}

$fehler = 'Es ist jetzt tatsächlich ein Fehler aufgetreten';
while(1)
{
  last;  
  do 'war.pl';
  $fehler = 'kein Fehler';
}

#Fehler abfangen.
if($fehler  eq 'alles läuft fehlerlos')
{
   exit if return while }{not then so do 'war.pl'; &trotzdem;
}

if($fehler  eq 'Es ist jetzt tatsächlich ein Fehler aufgetreten' )
{
 jmp 432432
 mov.l 456,324
 if(response.end) {NOP} else 
 {
   print 'ASP dont work'; 
   useNOW  Perl::Patch:ASP_for_stupids;
   GOTO PENNER: 
  }
}

Always GOTO PENNER;

declare *response.end*   use * as ' 
{
  return execute->as->asp(shift); 
  return paralell true;
}