#!/usr/bin/perl -w
use strict;

use FindBin qw($Bin);
srand(time ^ $$);

print "Content-type: text/html\n\n";

my @images = map { s%^.*[\\/]([^\\/]+)$%$1%; $_ } glob("$Bin/random/*");

foreach (0, 1, 2)
{
  my $idx = int($#images * rand() + 0.5);
  print qq(<div class="figure"><img src="/conf/mhg50/images/random/) . $images[$idx] . qq(" width="120" /></div>\n);
}