use strict;

writeeventlog();
######################################

sub writeeventlog {

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

   my %eventRecord = (
           #'Source' => undef,
           #'Computer' => undef,
           'Category' => 0, #NULL,
           'EventID' => 0,
           'EventType' => EVENTLOG_ERROR_TYPE,
           'Strings' => 'Test.',
           'Data' => 'Test.',
           );

   $eventLog->Report(\%eventRecord);
   $eventLog->Close();
}