Select Code to Download

sub Win32::EventLog::new {
    package Win32::EventLog;
    die "usage: PACKAGE->new(SOURCENAME[, SERVERNAME])\n" unless @_ > 
+1;
...
        error    => $error,
    } => $class;
}

lpEvtLog->hLog = OpenEventLogA(lpszUNCServerName,lpszSourceName);