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 "".$stepsound."";
if($step == 3) {
sleep 1;
print "
But the water has moved on";
sleep 1;
print "
Sorry, this page is not here";
}
}