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;
}