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