//banner.cgi
#!/usr/bin/perl
# opzoeken.tk
$|=1;
$mypic[0]="banner0.gif";
$mypic[1]="banner1.gif";
$mypic[2]="banner2.gif";
$mypic[3]="banner3.gif";
srand(time ^ $$);
$pick = rand(@mypic);
print "Content-type: image/gif\n\n";
open (BANNER,$mypic[$pick]);
print <BANNER> ;
close (BANNER);
//voor in je html code om de banner te tonen
<IMG SRC="banner.cgi">