{
out<<EOF;
<CENTER><A HREF="$BannerLink" TARGET="_BLANK"><img src="$BannerURL" border="0"></A></CENTER>
EOF
}

 Das einzige was jetzt noch nicht funktioniert ist die Einblendung des Werbebanners index1 als Bannerbild selbst. Hier erscheint in der Ausgabe ein Fehlerbild (kleines Bildchen mit rotem X). Der BannerLink welcher beim Banner hinterlegt ist, funktioniert ebenfalls nicht. Mit erreichen des maxCounters wird jedoch wie gewünscht der Alternativbanner eingeblendet. 

<perl>

if($Counter>$maxCounter || $_amount==0) {
### Der "alte" Banner wird gelöscht, wenn der Counter zu hoch ist ###
del "Id==$Id","banner" if $_amount;  }
else {
### sonst wird der Counter um eins erhöht ###
mod "Id==$Id",["Counter","$Counter"+1],"banner"; }

### Wenn keine Banner mehr in der Datenbank => Alternativ-Banner ###
$BannerURL="http://waterbourse.com/www/images/baboani1.gif";
$BannerLink="http://www.waterbourse.com";
}
{
out<<EOF;
<CENTER><A HREF="$BannerLink" TARGET="_BLANK"><img src="$BannerURL" border="0"></A></CENTER>
EOF
}
</perl>