#!c:\perl\bin\perl.exe -w
use strict;
use strict "vars";
my @imgArray = ("./pics/blink.gif","./pics/sum41.jpg","./pics/ul.jpg","./pics/ltj.jpg","./pics/mest.jpg","./pics/blink2.jpg","./pics/blink3.jpg");
srand(time ^ $$);
my $num = rand(@imgArray);
print "Content-type: text/html\n\n";
print "Index: $num
Image: $imgArray[$num]
";
print "Random imaging with Perl.....
";
if($num < 1)
{print "
Blink 182 (1)\n";}
elsif($num < 2)
{print "
Sum 41\n";}
elsif($num < 3)
{print "
Unwritten Law\n";}
elsif($num < 4)
{print "
Less Than Jake\n";}
elsif($num < 5)
{print "
Mest\n";}
elsif($num < 6)
{print "
Blink 182 (2)\n";}
elsif($num < 7)
{print "
Blink 182 (3)\n";}
else
{print "Error loading picture!";}