404 page

[Transalp]

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