srand;
$A = int (rand (4))
if ($A eq '0') {print "<BODY BACKGROUND=\"images/celtknt0.jpg\">\n"};
if ($A eq '1') {print "<BODY BACKGROUND=\"images/celtknt1.jpg\">\n"};
if ($A eq '2') {print "<BODY BACKGROUND=\"images/celtknt2.jpg\">\n"};
if ($A eq '3') {print "<BODY BACKGROUND=\"images/celtknt3.jpg\">\n"};       

Reply via email to