print "Content-type: text/html\n\n";
my @into_the_stream = qw( 1 2 3 );
my $stepsound = "..step";
print "You step into the stream ..";
foreach my $step (@into_the_stream) {
print "<H".$step.">".$stepsound."</H".$step.">";
if($step == 3) {
sleep 1;
print "<br>But the water has moved on";
sleep 1;
print "<br>Sorry, this page is not here";
}
}
Snippets of code should be wrapped in
<code> tags not<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).