$log = new Win32::EventLog("Application") 
$Win32::EventLog::GetMessageText = 1;