use Win32::EventLog
$handle=Win32::EventLog->new("Application");