use Win32::EventLog;

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

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