sub writeeventlog {
 
   use Win32::EventLog;
   my $eventLog = Win32::EventLog->new('MyProgram')
   
   my %eventRecord = (
   		'Source' => 'MyProgram',
   		'Computer' => 0,
   		'Length' => 0,
   		'RecordNumber' => 0,
   		'TimeGenerated' => 0,
  		'Timewritten' => 0,
   		'ClosingReocrdNumber' => 0,
   		'Category' => NULL,
   		'EventID' => 0,
   		'EventType' => EVENTLOG_ERROR_TYPE,
   		'Strings' => 'Test.'
   		'Data' => 'Test.',
   		);
   		
   $eventLog->Report(\%eventRecord);
   
   $eventLog->Close();
   
}