$handle= New Win32::EventLog("System");
$i = 0; #sets up the counter for amount of alerts
$count = 1;
while($handle->read((EVENTLOG_SEEK_READ|EVENTLOG_FORWARDS_READ,$count,$event))){
if($event->{source} eq 'disk'){
Win32::EventLog::GetMessageText($event);
$i = $i +1;
open(EVENT,'>Eventviewer.log') or die 'unable to open file';
print EVENT $event->{Message}."\n";
}
else{
open(EVENT,'>Eventviewer.log') or die 'unable to open file';
print EVENT "No Disk errors Found";
}
$count=$count+1;
}

$handle->Close