$evt = Win32::EventLog->new($path) || die "Could not open $log log on $server: $!\n";
$evt->GetNumber($total) || die "Can't get the higest number of EventLog records: $!\n";
$evt->GetOldest($oldest) || die "Can't get number of oldest EventLog record: $!\n";