use Win32::EventLog;

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

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

$eventLog->Close();