# Ray Espinoza
# eventclear.pl
# This will clear the local eventlog to be used in the update.cmd scri
+pt for new builds.
######################################################################
+##################

#!/usr/bin/perl 
    use Win32::EventLog;
    use strict;
    
    my ($Event, $filename, $directory);
    $directory = 'c:/temp/';
    
    for ('System', 'Security', 'Application')    {
        $Event = new Win32::EventLog ("$_", "") || die "can't create o
+bject\n";
        $filename = $directory . $_ . '.evt';
        print " $filename exists\n" if (-e "$filename");
        $Event->Clear($filename)or warn " $!";
        $Event->Close();
        
            }