$EventLog= Win32::EventLog->new( "$eventtyp­e", "$serve­rname" )
        or  die $^E;
    die $^E
        if  ! $EventLog->{handle};
    $EventLog->GetOldest( \$first )
        or  die $^E;