1 #!/usr/local/bin/perl
@ @
2 #—”¶¬
3 srand;
4 $x=rand(100);
@ @
5 #—”‚É‚æ‚é•\Ž¦‰æ‘œ‘I‘ðiðŒ•ªŠòj
6 if ( $x < 20) { $image="random1.jpg";
7 } elsif ( $x < 40) { $image="random2.jpg";
8 } elsif ( $x < 60) { $image="random3.jpg";
9 } elsif ( $x < 80) { $image="random4.jpg";
10 } else { $image="random5.jpg"}
@ @
11 #•\Ž¦
12 print "Content-type: text/html¥n¥n";
13 print "<img src=¥"$image¥">";