#!/usr/local/bin/perl   

# Init Files and Random Number

  $basedir = "http://www.mybigcompany.com/some-directory/";
  @files = ("exp_banner1.gif", "exp_banner2.giff", "exp_banner3.gif") ;
  $logfile = "/log-directory/exp_on_banners.log" ;
  srand(time ^ $$);
  $num = rand(@files);

# Print Location Directive

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

# Log Events

    open (LOG, ">>$logfile") || die 'Failed to Open Log File' ;
    $date = `date`;
     chop $date ;
     print LOG $files[$num], " ", $date, " ",
            $ENV{"REMOTE_ADDR"}, " ", $ENV{"REMOTE_HOST"}, "\n";
    close (LOG);