#!/usr/bin/perl -w
######################################################################
# (c) Michael Schilli 1999
######################################################################

use CGI qw/:standard/;

$count = param('count');  # CGI-Parameter abfragen
$count ||= 3;             # Parameter nicht gesetzt? Startwert.
$count--;

if($count) {
    print header(-Refresh => 
                 "1; URL=$ENV{SCRIPT_NAME}?count=$count");
    print h1($count);
} else {
    print header();
    print h1("Boom!");
}