#!/usr/bin/perl -w
######################################################################
# clientpull.pl
######################################################################
# Perl Power! - Michael Schilli 1998
######################################################################

use CGI qw/:standard/;

$count = param('count');         # interrogate CGI parameters
$count ||= 3;                    # parameters not set? starting value
$count--;

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