use Win32::EventLog;

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

    Source: geocities.com/siliconvalley/park/Park/8312

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