random image

[pabloj24]

Hi, i'm trying to display a set of random images on a web page useing perl. I have a folder containing about 100 pics and want to display 5 at a time in a row.... however i can not get the script to display different images (no repeats). all 5 pics are always identical.
On the web page I am posting:

<img src = "/cgi/random.pl">
<img src = "/cgi/random.pl">
<img src = "/cgi/random.pl">
<img src = "/cgi/random.pl">
<img src = "/cgi/random.pl">

My perl file random.pl is as follows:

#!/usr/bin/perl -w
$MAX = 9;
$SERVER = "moc.etisbewym.www//:ptth"
$DIR = "/bannerimages";
$FILE = "banner";
$EXT = "jpg";
srand (time^$$);
$index = int (rand ($MAX));
print "Location: $SERVER/$DIR/$FILE$index.$EXT\n\n";
exit (0);

Thanks

[xmassey]

Post your full code if you can. Because that section WILL NOT print a random image. I know of a much much much shorter and better method. But I want to see your full code first, then I can help you with it (I also do the same thing on one of my websites)

[xmassey]

Sorry, I read your code properly lol, and I still want to see all the my staements etc, just I can't see how you get "banner", wheres your file opening code?

[Seymour Clufley]

XMassey, would you mind showing "shorter and better" method you mentioned? I for one would be grateful.