#!/usr/bin/perl
# $Header$
use strict;
use CGI qw(:standard);
# No buffering of output to browser.
#
$|++;
print header;
print qq {
the Title
};
print "Starting ...
\n";
for (my $i=0; $i < 10; $i++) {
print "$i
\n";
sleep 1;
}
print "";
exit;
####
AuthUserFile /the_root/dir_one/security/security.pwd
AuthGroupFile /dev/null
AuthName EnterPassword
Authtype Basic
require valid-user