#!/usr/bin/perl

  $basedir = "http://andu.bumpclub.ee/";
  @files = ("sadness.html","loneliness.html","disco.html","drinking.html","fun.html","index.html","monotony.html","wilfulness.html","passion.html","sadness.html");


#  $uselog = 0; # 1 = YES; 0 = NO
#  $logfile = "/home/andu/public_html/piclog";

srand(time ^ $$);
$num = rand(@files);


print "Location: $basedir$files[$num]\n\n";


#if ($uselog eq '1') {
#    open (LOG, ">>$logfile");
#    print LOG "$files[$num]\n";
#    close (LOG);
#}