Help for this page

Select Code to Download

Select or download this

#!perl

use strict;
...

print "Supposed Count: $SupposedCount\n";
print "Actual Count: $ActualCount\n";

Select or download this

---------------------
C:\>perl events.pl
Supposed Count: 26382
Actual Count: 1261
-------------------