Select Code to Download

ReadEventLog( handle ... );
CloseEventLog( handle );

Win32::EventLog::Read( $handle, ... );
Win32::EventLog::Close( $handle );

$handle->Read(...);
$handle->Close;

#!/usr/bin/perl --
use strict;
use warnings;
...

Uh oh 125 "perl.exe\x005.8.9.825\0perl58.dll\x005.8.9.825\x000008725a\
+0"
666 at pm.918065.pl line 67.