handle=Win32::EventLog->new("system",$ENV{ComputerName});
$handle->GetNumber($recs);
$handle->GetOldest($base);
while ( $x < $recs )
{
 	 $handle->Read(EVENTLOG_FORWARDS_READ|EVENTLOG_SEEK_READ,$base+$x,$HashRef);
	 
	 if ( $HashRef->{Source} eq "EventLog")
	 {
	  	Win32::EventLog::GetMessageText($HashRef);
		print FH "Entry $x : $HashRef->{Message}\n";
	 }
	 else
	 {
	  	 Win32::EventLog::GetMessageText($HashRef);
		 print FH2 "Entry $x : $HashRef->{Message}\n";
	 }