#!/usr/bin/perl
#
@imgs = ("cover1.gif","cover2.gif","cover3.gif","cover4.gif");

srand(time() ^ ($$ + ($$ << 15)) );
$img = $imgs[int(rand($#imgs+1))];
print "<img src=\"img/$img\">";