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";
}
}