#!/usr/bin/perl -w
use strict;
use warnings;

use AuditLogReview_Event;    # handles 2003 events
use AuditLogReview_Event08;    # handles 2008 events 

EventWindowsHandler('.evt');
EventWindowsHandler('.evtx');

sub EventWindowsHandler {
    my $oEvent;
    my $ext = shift;
    
    if ($ext eq '.evt') {
        $oEvent = Security->new();
    } elsif ( $ext eq '.evtx') {
        $oEvent = Security08->new();    # can I call Security from the AuditLogReview_Event08 file?
    }
    
    print "Processing $oEvent->{'Event Type'} $oEvent->{'EventLog'} event.\n";

}