<% $stuff[int(rand() * @stuff)] %>

<%init>
my @stuff = split /\n/, <<"EOF";
<img src="/banner_images/comet.jpg">
<img src="/banner_images/saturn.jpg">
<img src="/banner_images/ida2.jpg">
<img src="/banner_images/gaspra.jpg">
EOF
</%init>
