use Win32::EventLog;

 my $this, $LOG;
 Win32::EventLog::Open($LOG, "System") || die $!;
 $LOG->GetNumber($this) || die $!;
 print "There are $this recrods int he System Log\n";

    Source: geocities.com/siliconvalley/park/8312

               ( geocities.com/siliconvalley/park)                   ( geocities.com/siliconvalley)