use Win32::EventLog;

$handle=Win32::EventLog->new("System", $ENV{ComputerName})
 	or die "Can't open Application EventLog\n";

my %reporthash = (EventType => 'EVENTLOG_INFORMATION_TYPE', Category => 'MyCategory', Data => 'My Raw Data Here', Strings => 'My Null-Terminated Strings Here' . chr(0));

$handle->Report(\%reporthash);