Select Code to Download

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