[1]  #!/usr/bin/perl
     # Random Image Displayer
     # Erstellt von: Matt Wright
     # Version 1.2
     # Erstellt am: 1.7.95            Letzte nderung: 19.12.96

[2]  # Erforderliche Variablen
     $basedir = "http://ihr.host.com/images/";
     @images = ("bild1.gif","bild2.jpg","bild3.gif");

[3]  # Optionen
     $uselog = 0;  # 1 = JA; 0 = NEIN
        $logfile = "/pfad/nach/log/datei";
        $date = `/usr/bin/date`;

[4]  srand(time ^ $$);
     $num = rand(@images); # Eine Zufallszahl holen

[5]  # Den Header mit Zufalls-Dateinamen und
     # Basis-Verzeichnis ausgeben
     print "Location: $basedir$images[$num]\n\n";

[6]  # Wenn Sie ein Protokoll mchten, fgen wir es hier hinzu.
     if ($uselog eq '1') {
        open(LOG, ">>$logfile");
        print LOG "$images[$num] - $date - $ENV{'REMOTE_HOST'}\n";
        close(LOG);
     }

