package TestModPerl;

my $total = 0;
my $counter = 0;

sub run {
    $counter = 0;
    for (1 .. 5) {
	increment_counter();
    }
}

sub increment_counter {
    $counter++;
    print "Counter is equal to $counter!<br>\n";
}

sub total {
    $total++;
    print "This has run $total times.<br>\n";
}

1;
__END__
# apparently in mod_perl2 having __END__ is OK.