use Win32;
use Win32::EventLog;
$handle=Win32::EventLog->new("system");
$handle->GetNumber($recs);
$handle->GetOldest($base);
$x = 0;
while ( $x < $recs ){
    %Hash=();
    $handle->Read(EVENTLOG_FORWARDS_READ|EVENTLOG_SEEK_READ,$base+$x,\
+%Hash);
    my $message=Win32::EventLog::GetMessageText(\%Hash);
    foreach my $key (sort(keys(%Hash))){
        print "\t$key=$Hash{$key}\n";
        }
    print "$message\n";
    $x++;
    }
[download]