Another Image Example<title></head> <body> <img src="$img"> </body> EOT

#!/usr/bin/perl -w use strict; my $rnd=int(rand()*8); my $img="images/banner".$rnd".gif"; print "Content-type: text/html\n\n"; print <Another Image Example<title></head> <body> <img src="$img"> </body> EOT