Event Type:	Information
Event Source:	MyAppName
Event Category:	None
Event ID:	0
Date:		1/20/2009
Time:		1:28:16 AM
User:		N/A
Computer:	COMPUTER-NAME
Description:
The description for Event ID ( 0 ) in Source ( MyAppName ) cannot be found. The local computer may not have the necessary registry information or message DLL files to display messages from a remote computer. You may be able to use the /AUXSOURCE= flag to retrieve this description; see Help and Support for details. The following information is part of the event: This is a test log entry..

##</code><code>##

use Win32::EventLog;

my $eventlog = Win32::EventLog->new('MyAppName');

$eventlog->Report({
  EventType => EVENTLOG_INFORMATION_TYPE,
  Strings => qq(This is a test log entry.),
});


##</code><code>##

MessageIdTypedef=WORD
LanguageNames=(English=0x409:MSG00409)

MessageId=0x0
Severity=Success
Facility=Application
SymbolicName=CATEGORY_SUCCESS
Language=English
%1
.

##</code><code>##

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Eventlog\Application\MyAppName]
"TypesSupported"=dword:00000007
"CustomSource"=dword:00000001
"EventMessageFile"="C:\\the-location-that-your-eventlog.dll-will-be-installed\\EventLog.dll"

##</code><code>##

use Win32::EventLog;

my $eventLog = Win32::EventLog->new('MyAppName');

$eventLog->Report({
  EventType => EVENTLOG_INFORMATION_TYPE,
  Strings => 'This is a test log entry.',
});

$eventLog->Close();