#!/usr/bin/perl
######################
#  rand_im.pl
#  image rotating : 
#  \webshare\wwwroot\imagenetnew\in\images\saying1~26.gif
######################

# Variables
$basedir = "http://www.imagenet.net/in/images/";
@images = ("saying1.gif","saying2.gif","saying3.gif",
"saying4.gif","saying5.gif","saying6.gif","saying7.gif",
"saying8.gif","saying9.gif","saying10.gif","saying11.gif",
"saying12.gif","saying13.gif","saying14.gif","saying15.gif",
"saying16.gif","saying17.gif","saying18.gif","saying19.gif",
"saying20.gif","saying21.gif","saying22.gif","saying23.gif",
"saying24.gif","saying25.gif","saying26.gif");

@alt = ("saying1.gif","saying2.gif","saying3.gif",
"saying4.gif","saying5.gif","saying6.gif","saying7.gif",
"saying8.gif","saying9.gif","saying10.gif","saying11.gif",
"saying12.gif","saying13.gif","saying14.gif","saying15.gif",
"saying16.gif","saying17.gif","saying18.gif","saying19.gif",
"saying20.gif","saying21.gif","saying22.gif","saying23.gif",
"saying24.gif","saying25.gif","saying26.gif");
######################

# choose image file 
srand(time ^ $$);
$num = rand(@images);

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

print "<p><img align=\"right\" src=\"$basedir$images[$num]\"";

print " border=0";
print " alt=\"$alt[$num]\"";
print ">";
print "\n\n";