package ModCounter;
use Exporter;
@ISA = qw(Exporter);
use vars qw($cnt);
@EXPORT_OK = qw(TotalRun);
sub TotalRun{
$cnt++;
return $cnt;
}

1;

##</code><code>##

#!/usr/bin/perl -w
use strict;
print "Content-type:text/html\n\n";
use ModCounter;
print "cnt=".ModCounter::TotalRun;
exit;