Select Code to Download

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

while ($log->Read((EVENTLOG_SEQUENTIAL_READ|EVENTLOG_FORWARDS_READ), 
1,$entry)){
...
print $entry->{Message};
...
}