#!c:/perl/bin/perl -w
$|++;

use strict;
use CGI::Simple;

use vars qw($count);  # could also use our()

my $CGI = CGI::Simple->new();
print $CGI->header(), ++$count;